Fixes gap-system#707

hungaborhorvath · Apr 2, 2016 · 8b97d43 · 8b97d43
1 parent 1059ab2
commit 8b97d43
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/grp.gi b/lib/grp.gi
@@ -2932,7 +2932,7 @@ InstallMethod( HallSubgroupOp,
     for p in pi do
       AddSet(smallpi, p);
       S := ClosureSubgroupNC(S, SylowSubgroup(G, p));
-      SetHallSubgroup(G, smallpi, S);
+      SetHallSubgroup(G, ShallowCopy(smallpi), S);
     od;
     return S;
     end );