Index: gap-4r8p3/src/pperm.c
===================================================================
--- gap-4r8p3.orig/src/pperm.c
+++ gap-4r8p3/src/pperm.c
@@ -4451,7 +4451,7 @@ Obj QuoPPerm22(Obj f, Obj g){
       }
     }
   }
-  CODEG_PPERM2(quo)=codeg;
+  CODEG_PPERM4(quo)=codeg;
   return quo;
 }
 
