diff --git a/src/trans.c b/src/trans.c index f0ea6c1ea1..49d470f4fe 100644 --- a/src/trans.c +++ b/src/trans.c @@ -2650,6 +2650,7 @@ Obj FuncMOVED_PTS_TRANS(Obj self, Obj f) for (i = 0; i < deg; i++) { if (ptf2[i] != i) { AssPlist(out, ++len, INTOBJ_INT(i + 1)); + ptf2 = CONST_ADDR_TRANS2(f); } } } @@ -2660,6 +2661,7 @@ Obj FuncMOVED_PTS_TRANS(Obj self, Obj f) for (i = 0; i < deg; i++) { if (ptf4[i] != i) { AssPlist(out, ++len, INTOBJ_INT(i + 1)); + ptf4 = CONST_ADDR_TRANS4(f); } } }