--- gap/basic/pcpgrps.gi.orig	2020-07-24 17:55:13.000000000 -0600
+++ gap/basic/pcpgrps.gi	2022-09-11 10:18:48.429783223 -0600
@@ -99,6 +99,9 @@ InstallMethodWithRandomSource( Random, "
 function( rs, G )
     local pcp, rel, g, i;
     pcp := Pcp(G);
+    if Length( pcp ) = 0 then
+        return One( G );
+    fi;
     rel := RelativeOrdersOfPcp( pcp );
     g   := [];
     for i in [1..Length(rel)] do