From 1c9c9fa472a9dec6bf34c28ed3cb8eed4814f58c Mon Sep 17 00:00:00 2001
From: Alexander Hulpke <hulpke@math.colostate.edu>
Date: Tue, 15 Nov 2016 11:04:53 +0100
Subject: [PATCH] FIX: ShallowCopy immutable orbit.

---
 lib/autsr.gi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/autsr.gi b/lib/autsr.gi
index 343fe95219..b238ab5838 100644
--- 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));