--- gap/basic/construct.gi.orig	2022-09-11 10:12:49.853014707 -0600
+++ gap/basic/construct.gi	2022-09-11 10:15:10.231321437 -0600
@@ -26,7 +26,7 @@ InstallMethod( AbelianGroupCons,
 function( filter, ints )
     local coll, i, n, r, grp;
 
-    if not ForAll( ints, IsInt )  then
+    if not ForAll( ints, x -> IsInt(x) or IsInfinity(x) )  then
         Error( "<ints> must be a list of integers" );
     fi;
     # We allow 0, and interpret it as indicating an infinite factor.
--- gap/exam/generic.gi.orig	2020-07-24 17:55:13.000000000 -0600
+++ gap/exam/generic.gi	2022-09-11 10:15:39.470385339 -0600
@@ -25,7 +25,7 @@ InstallGlobalFunction( AbelianPcpGroup,
     # construct group
     coll := FromTheLeftCollector( n );
     for i in [1..n] do
-        if IsBound( r[i] ) and r[i] > 0 then
+        if IsBound( r[i] ) and r[i] > 0 and r[i] <> infinity then
             SetRelativeOrder( coll, i, r[i] );
         fi;
     od;