diff --git a/gap/structure.gi b/gap/structure.gi index 7b6a8b8..08635a1 100644 --- a/gap/structure.gi +++ b/gap/structure.gi @@ -216,7 +216,7 @@ InstallMethod(RightDivisionTable, [HasMultiplicationTable], function (obj) local RS, n; - RS := RightPerms(fam); + RS := RightPerms(obj); n := Size(RS); return TransposedMat(List(RS, x->ListPerm(Inverse(x), n))); end);