From 2dcde9954911703fd48cd729b9b515331fd35382 Mon Sep 17 00:00:00 2001
From: Glen Whitney <gwhitney@post.harvard.edu>
Date: Mon, 30 Oct 2017 11:45:14 -0400
Subject: [PATCH] oops need to check first factor for being loop in
 DirectProductLoop.

---
 gap/quasigroups.gi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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]);