diff --git a/gap/quasigroups.gi b/gap/quasigroups.gi
index e90f08b..485d1aa 100644
--- a/gap/quasigroups.gi
+++ b/gap/quasigroups.gi
@@ -797,7 +797,7 @@ function( list, dummy )
     fi;
     group_list := [];
     quasigroup_list := list{[1]};
-    are_all_loops := true;
+    are_all_loops := IsLoop(list[1]);
     for i in [2..Length(list)] do
         if IsGroup(list[i]) then 
             Add(group_list, list[i]);