diff --git a/lib/grplatt.gi b/lib/grplatt.gi
index 2d42330b11..092d3b4cf5 100644
--- a/lib/grplatt.gi
+++ b/lib/grplatt.gi
@@ -845,11 +845,15 @@ InstallGlobalFunction(LatticeViaRadical,function(arg)
   makesubgroupclasses,cefastersize;
 
   #group order below which cyclic extension is usually faster
-  if IsPackageMarkedForLoading("tomlib","")=true then
+  # WORKAROUND: there is a disparity between the data format returned
+  # by CE and what this code expects. This could be resolved properly,
+  # but since most people will have tomlib loaded anyway, this doesn't
+  # seem worth the effort.
+  #if IsPackageMarkedForLoading("tomlib","")=true then
     cefastersize:=1; 
-  else
-    cefastersize:=40000; 
-  fi;
+  #else
+  #  cefastersize:=40000; 
+  #fi;
 
   makesubgroupclasses:=function(g,l)
   local i,m,c;
diff --git a/tst/testbugfix/2022-09-06-ConjugacyClassesSubgroups.tst b/tst/testbugfix/2022-09-06-ConjugacyClassesSubgroups.tst
new file mode 100644
index 0000000000..0e1eb65a53
--- /dev/null
+++ b/tst/testbugfix/2022-09-06-ConjugacyClassesSubgroups.tst
@@ -0,0 +1,5 @@
+# The following used to work in GAP 4.10, but was broken in GAP
+# 4.11.x and also 4.12.0.
+# See /~https://github.com/gap-system/gap/issues/4854
+gap> Length(ConjugacyClassesSubgroups(SmallGroup(1344,11293)));
+83