fixed another typo

diff --git a/lang/m2/libm2/Streams.mod b/lang/m2/libm2/Streams.mod
index 6e758c7..bd1b6a9 100644 (file)
--- a/lang/m2/libm2/Streams.mod
+++ b/lang/m2/libm2/Streams.mod
@@ -150,7 +150,7 @@ IMPLEMENTATION MODULE Streams;
                IF (cnt > 0) THEN
                        cnt1 := cnt;
                        cnt := 0;
-                       IF Unix.write(fildes, ADR(buf), cnt) < 0 THEN END;
+                       IF Unix.write(fildes, ADR(buf), cnt1) < 0 THEN END;
                END;
        END;
   END FlushStream;