Replace IsomorphismGroup by IsomorphismPcGroup

gap-system · Nov 4, 2016 · 6a325c0 · 6a325c0
1 parent 279c05e
commit 6a325c0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/grppcatr.gi b/lib/grppcatr.gi
@@ -499,8 +499,8 @@ function( G )
             Error("number of maximal normal subgroups is infinity");
         else
             # convert it to an abelian PcGroup with same invariants
-            Gf := AbelianGroup(IsPcGroup, AbInv);
-            hom := IsomorphismGroups(G, Gf);
+            hom := IsomorphismPcGroup(G);
+            Gf := Image(hom);
             # for abelian groups all maximal normal subgroup are also
             # normal maximal subgroups and vice-versa
             MaxGf := NormalMaximalSubgroups(Gf);