From 81947fbf97bd663d6817ec7a65c3cd0efbc644d3 Mon Sep 17 00:00:00 2001
From: dtrg <none@none>
Date: Wed, 1 Sep 2010 19:55:15 +0000
Subject: [PATCH] Fixed very old bug where Streams.GetStreamPosition would
 return the wrong position --- thanks to Jan Verhoeven for finding this.

---
 lang/m2/libm2/Streams.mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lang/m2/libm2/Streams.mod b/lang/m2/libm2/Streams.mod
index 7e123bacb..87e82cb5c 100644
--- 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;
 
-- 
2.34.1