--- a/LimitedPrecisionReal.st	Fri Jan 19 23:55:17 2018 +0100
+++ b/LimitedPrecisionReal.st	Fri Jan 19 23:57:45 2018 +0100
@@ -518,13 +518,13 @@
 fmax
     "The largest value allowed by instances of this class."
 
-    |radix _radix|
+    |radix radixReal|
 
     radix := self radix.
-    _radix := (self fromInteger: radix).
+    radixReal := (self fromInteger: radix).
     ^ ((self fromInteger: 1) -
-            (_radix timesTwoPower: self precision negated - 1)) * radix
-            * (_radix timesTwoPower: self emax - 1)
+            (radixReal timesTwoPower: self precision negated - 1)) * radix
+            * (radixReal timesTwoPower: self emax - 1)
 
     "
      Float fmax