--- a/EigenLib1.def
+++ b/EigenLib1.def
@@ -610,7 +610,7 @@
 
 PROCEDURE Reduce1(VAR A,B    : ARRAY OF ARRAY OF LONGREAL;
                   VAR dL     : ARRAY OF LONGREAL;
-                      dim    : CARDINAL; (* n in origianl            *)
+                      dim    : CARDINAL; (* n in original            *)
                       transB : BOOLEAN); (* FALSE instead of dim < 0 *)
 
           (*-----------------------------------------------------------------*)