From 9c00856e6fffa91e66f5a83a20fc9dd801aba1a5 Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Tue, 20 Jun 1989 11:43:01 +0000
Subject: [PATCH] bug fix: printed some reals wrong

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

diff --git a/lang/m2/libm2/RealConver.mod b/lang/m2/libm2/RealConver.mod
index 72a95c5e..2e29b976 100644
--- a/lang/m2/libm2/RealConver.mod
+++ b/lang/m2/libm2/RealConver.mod
@@ -139,7 +139,7 @@ IMPLEMENTATION MODULE RealConversions;
 			RETURN;
 		END;
 		str[ind1] := 'E'; INC(ind1);
-		IF r # 0.0D THEN DEC(pointpos); END;
+		IF arg # 0.0D THEN DEC(pointpos); END;
 		IF pointpos < 0 THEN
 			pointpos := -pointpos;
 			str[ind1] := '-';