diff --git a/gap/quasigroups.gi b/gap/quasigroups.gi
index 5a65b59..f8b9296 100644
--- a/gap/quasigroups.gi
+++ b/gap/quasigroups.gi
@@ -768,9 +768,9 @@ end);
 
 InstallGlobalFunction(ProductTableOfCanonicalCayleyTables,
 function(tablist)
-    local n, i, nL, nM, TL, TM, T, j, k, s;
+    local i, nL, nM, TL, TM, T, j, k, s;
     TL := tablist[1];
-    for s in [2..n] do
+    for s in [2..Length(tablist)] do
         TM := tablist[ s ];
         nL := Length( TL);  nM := Length( TM );
         T := List( [1..nL*nM], j->[] );