diff --git a/M2/Macaulay2/packages/gfanInterface.m2 b/M2/Macaulay2/packages/gfanInterface.m2
index 338a819e90..ff1018182c 100644
--- a/M2/Macaulay2/packages/gfanInterface.m2
+++ b/M2/Macaulay2/packages/gfanInterface.m2
@@ -4437,6 +4437,13 @@ doc///
 	 assert equalMPL(B,Bprime)
 	 ///
 
+-- TEST gfanConvertToNewRing #3601
+	TEST ///
+	R = QQ[x1];
+	gfanConvertToNewRing(R);
+	assert (ring x1 === R)
+	///
+
 -- TEST gfanConvertToNewRing x NCAlgebra (cf. #3600)
 	TEST ///
 	R = QQ[a];