From 7efaaf55403fa9cd84c4210d8e6255125b3b2d35 Mon Sep 17 00:00:00 2001
From: Alexander Hulpke <hulpke@math.colostate.edu>
Date: Wed, 27 Jul 2022 21:01:17 +0200
Subject: [PATCH] Workaround for #4854

This disables an attempt to use cyclic extension instead of lifting for
lattices of smallish groups. The issue is that CE returns data in a slightly
different format than required.
If yomlib is loded its a mote issue, and thus does not merit investigation.

This closes #4854
---
 lib/grplatt.gi | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/grplatt.gi b/lib/grplatt.gi
index 2d42330b110..613e272f8d6 100644
--- a/lib/grplatt.gi
+++ b/lib/grplatt.gi
@@ -845,11 +845,11 @@ InstallGlobalFunction(LatticeViaRadical,function(arg)
   makesubgroupclasses,cefastersize;
 
   #group order below which cyclic extension is usually faster
-  if IsPackageMarkedForLoading("tomlib","")=true then
+  #if IsPackageMarkedForLoading("tomlib","")=true then
     cefastersize:=1; 
-  else
-    cefastersize:=40000; 
-  fi;
+  #else
+  #  cefastersize:=40000; 
+  #fi;
 
   makesubgroupclasses:=function(g,l)
   local i,m,c;