fix in writing of prompt

diff --git a/lang/m2/libm2/InOut.mod b/lang/m2/libm2/InOut.mod
index 368ea4f..743e441 100644 (file)
--- a/lang/m2/libm2/InOut.mod
+++ b/lang/m2/libm2/InOut.mod
@@ -307,6 +307,7 @@ IMPLEMENTATION MODULE InOut ;
        LOOP
                IF (i <= HIGH(s)) AND (s[i] # 0C) THEN
                        Streams.Write(Streams.OutputStream, s[i], result);
+                       INC(i);
                ELSE
                        EXIT;
                END;