FIX: Only store induced FF setup as own, if it is

I.e. do not store an FF setup if the factor has a radical -- code often
assume that the given radical factor is indeed fitting free.
Subsequent manual changes

lib/fitfree.gi

@@ -166,15 +166,17 @@ local ffs,hom,U,rest,ker,r,p,l,i,depths;
 
   U!.cachedFFS:=[[ffs,r]];
 
-  # FittingFreeLiftSetup for U
-  r:=rec(inducedfrom:=ffs,
-         pcgs:=ipcgs,
-	 depths:=depths,
-         pcisom:=ffs.pcisom,
-         radical:=ker,
-         factorhom:=rest
-	);
-  SetFittingFreeLiftSetup(U,r);
+  # FittingFreeLiftSetup for U, if correct
+  if Size(RadicalGroup(Image(rest,U)))=1 then
+    r:=rec(inducedfrom:=ffs,
+          pcgs:=ipcgs,
+          depths:=depths,
+          pcisom:=ffs.pcisom,
+          radical:=ker,
+          factorhom:=rest
+          );
+    SetFittingFreeLiftSetup(U,r);
+  fi;
 
   return U;