Fixed very old bug where Streams.GetStreamPosition would return the wrong position...

diff --git a/lang/m2/libm2/Streams.mod b/lang/m2/libm2/Streams.mod
index 7e123ba..87e82cb 100644 (file)
--- a/lang/m2/libm2/Streams.mod
+++ b/lang/m2/libm2/Streams.mod
@@ -341,7 +341,7 @@ IMPLEMENTATION MODULE Streams;
                RETURN;
        END;
        IF s^.mode = reading THEN
-               position := position + LONG(s^.maxcnt - s^.cnt + 1);
+               position := position - LONG(s^.maxcnt - s^.cnt + 1);
        END;
   END GetPosition;