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] := '-';