fix coordinates to return graded polys (#487)

oscar-system · Jun 18, 2021 · 8bccde9 · 8bccde9
1 parent 7c53510
commit 8bccde9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Modules/FreeModules-graded.jl b/src/Modules/FreeModules-graded.jl
@@ -862,7 +862,7 @@ function coordinates(a::FreeModuleElem_dec, SQ::SubQuo_dec)
   Sx = base_ring(SQ)
   Rx = Sx.R
   R = base_ring(Rx)
-  return sparse_row(Rx, s[1], 1:ngens(SQ))
+  return sparse_row(Sx, s[1], 1:ngens(SQ))
 end