diff --git a/gap/quasigroups.gi b/gap/quasigroups.gi
index a5fce77..62ce371 100644
--- a/gap/quasigroups.gi
+++ b/gap/quasigroups.gi
@@ -32,12 +32,12 @@ end );
 
 #############################################################################
 ##
-#O  IsRighttQuasigroupTable( ls )
+#O  IsRightQuasigroupTable( ls )
 ##
 ##  Returns true if <ls> is an n by n matrix with n distinct
 ##  integral entries, each occurring exactly once in each column
 
-InstallMethod( IsRighttQuasigroupTable, "for matrix",
+InstallMethod( IsRightQuasigroupTable, "for matrix",
     [ IsMatrix ],
     mat -> IsLeftQuasigroupTable(TransposedMat(mat))
 );