ReadString did not skip leading spaces

diff --git a/lang/m2/libm2/InOut.mod b/lang/m2/libm2/InOut.mod
index 21d1a9f..dc496ec 100644 (file)
--- a/lang/m2/libm2/InOut.mod
+++ b/lang/m2/libm2/InOut.mod
@@ -308,6 +308,10 @@ IMPLEMENTATION MODULE InOut ;
 
   BEGIN
        i := 0;
+       REPEAT
+               Read(ch);
+       UNTIL (ch # ' ') AND (ch # TAB);
+       UnRead(ch);
        LOOP
                Read(ch);
                termCH := ch;