From 20e35a046acd858bbf9472058e47008fc52207f6 Mon Sep 17 00:00:00 2001
From: Ulli Kehrle <ulli.kehrle@rwth-aachen.de>
Date: Wed, 7 Nov 2018 13:42:11 +0100
Subject: Don't change the names of the generators when computing the direct
 product.

---
 subgroupladder.g | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/subgroupladder.g b/subgroupladder.g
index e1235a1..21f4ac4 100644
--- a/subgroupladder.g
+++ b/subgroupladder.g
@@ -21,6 +21,7 @@ Subgroupladder := function(G)
 		pair,
 		ladder,
 		directfactors,
+		generators,
 		mapping,
 		output,
 		partition;
@@ -75,10 +76,11 @@ Subgroupladder := function(G)
 		k := Length(pair[1]);
 		mapping := pair[2];
 		directfactors := [];
+		generators := [];
 		for i in [1..k] do
-			Add(directfactors, SymmetricGroup(Filtered([1..n], x -> i = mapping[x])));
+			Append(generators, GeneratorsOfGroup(SymmetricGroup(Filtered([1..n], x -> i = mapping[x]))));
 		od;
-		Add(output, DirectProduct(directfactors));
+		Add(output, Group(generators));
 	od;
 
 	return output;
-- 
cgit v1.2.3-24-g4f1b