promote in selectVariables

pzinn · Sep 23, 2024 · 5d9109b · 5d9109b
1 parent 17406c8
commit 5d9109b
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/M2/Macaulay2/m2/polyrings.m2 b/M2/Macaulay2/m2/polyrings.m2
@@ -274,7 +274,10 @@ selectVariables(List,PolynomialRing) := (v,R) -> (
      o.Variables = o.Variables_v;
      o.Degrees = o.Degrees_v;
      o = new OptionTable from o;
-     (S := (coefficientRing R)(monoid [o]),map(R,S,(generators R)_v)))
+     S := (coefficientRing R)(monoid [o]);
+     f := map(R,S,(generators R)_v);
+     promoteFromMap f;
+     (S,f))
 
 -----------------------------------------------------------------------------