diff --git a/lang/m2/libm2/InOut.mod b/lang/m2/libm2/InOut.mod
index 21d1a9f9..dc496ec4 100644
--- 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;