FIX: ShallowCopy immutable orbit.

gap-system · Nov 23, 2016 · 1c9c9fa · 1c9c9fa
1 parent 2f913f7
commit 1c9c9fa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/autsr.gi b/lib/autsr.gi
@@ -729,7 +729,7 @@ local ff,r,d,ser,u,v,i,j,k,p,bd,e,gens,lhom,M,N,hom,Q,Mim,q,ocr,split,MPcgs,
 	  for j in u do
 	    if IsList(j) then
 	      # stabilizer set of subgroups
-	      jorb:=Orbit(AQP,j[1],C[2],C[1],asAutom);
+	      jorb:=ShallowCopy(Orbit(AQP,j[1],C[2],C[1],asAutom));
 	      jorpo:=[Position(jorb,j[1]),Position(jorb,j[2])];
 	      if jorpo[2]=fail then
 	        Append(jorb,Orbit(AQP,j[1],C[2],C[1],asAutom));