diff --git a/M2/Macaulay2/packages/gfanInterface.m2 b/M2/Macaulay2/packages/gfanInterface.m2 index 7751a03df2..83432c907b 100644 --- a/M2/Macaulay2/packages/gfanInterface.m2 +++ b/M2/Macaulay2/packages/gfanInterface.m2 @@ -753,7 +753,7 @@ gfanConvertToNewRing (PolynomialRing) := R1 -> ( --produced by this method. R1Gens := gens R1; numDigits := length (toString (#R1Gens)); - R2 := (coefficientRing R1) (for i in 1..#R1Gens list ( + R2 := (coefficientRing R1) new Array from (for i in 1..#R1Gens list ( value ("x" | demark ("",for i from 1 to numDigits-(length toString i) list "0") | toString i) ) ); R2Gens := gens R2;