From 076a915123ec4e0a69ba7d336e9acc6cd50d76cb Mon Sep 17 00:00:00 2001
From: Alexander Hulpke <hulpke@math.colostate.edu>
Date: Tue, 7 Aug 2018 09:27:14 -0600
Subject: [PATCH] More generous up step to avoid horrible down indices.

---
 lib/csetgrp.gi | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/csetgrp.gi b/lib/csetgrp.gi
index 1d12e398b1..b88f123236 100644
--- a/lib/csetgrp.gi
+++ b/lib/csetgrp.gi
@@ -867,6 +867,8 @@ local c, flip, maxidx, refineChainActionLimit, cano, tryfct, p, r, t,
     
     if maxidx(c)>10*actlimit then
 
+      badlimit:=10*actlimit;
+      uplimit:=15000;
       r:=ShallowCopy(TryMaximalSubgroupClassReps(a:cheap));
       r:=Filtered(r,x->Index(a,x)<uplimit);
 
@@ -891,6 +893,8 @@ local c, flip, maxidx, refineChainActionLimit, cano, tryfct, p, r, t,
   stabs:=[b];
   dcs:=[];
 
+  Info(InfoCoset,1,"Chosen series is ",List(c,Size));
+
   # calculate setup for once
   homs:=[];
   tra:=[];