diff --git a/M2/Macaulay2/packages/gfanInterface.m2 b/M2/Macaulay2/packages/gfanInterface.m2
index 52b209eb28..5ee09515fe 100644
--- a/M2/Macaulay2/packages/gfanInterface.m2
+++ b/M2/Macaulay2/packages/gfanInterface.m2
@@ -4445,6 +4445,13 @@ doc///
 	assert gfanConvertToNewRing(R)
 	///
 
+-- TEST gfanConvertToNewRing (cf. #3601)
+  TEST ///
+	R = QQ[x1];
+	gfanConvertToNewRing(R);
+	assert (ring x1 === R);
+	///
+
 	-- TEST gfanBuchberger
 	TEST ///
 	 equalMPL = (A,B) -> set transpose A === set transpose B