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 a401337..08b84cf 100644 (file)
--- a/lang/m2/libm2/Streams.mod
+++ b/lang/m2/libm2/Streams.mod
@@ -340,7 +340,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;