--- a/LimitedPrecisionReal.st	Wed Nov 16 21:35:49 2016 +0100
+++ b/LimitedPrecisionReal.st	Wed Nov 16 23:16:14 2016 +0100
@@ -425,18 +425,21 @@
 fmax
     "The largest value allowed by instances of this class."
 
-    |radix|
+    |radix _radix|
 
     radix := self radix.
-    ^(self fromNumber: 1) -
-            ((self fromNumber: radix) timesTwoPower: self precision negated - 1) * radix
-            * ((self fromNumber: radix) timesTwoPower: self emax - 1)
+    _radix := (self fromNumber: radix).
+    ^ ((self fromNumber: 1) -
+            (_radix timesTwoPower: self precision negated - 1)) * radix
+            * (_radix timesTwoPower: self emax - 1)
 
     "
-     Float fmax    
+     Float fmax      
      ShortFloat fmax 
      LongFloat fmax  
     "
+
+    "Modified (comment): / 16-11-2016 / 23:12:36 / cg"
 !
 
 fmin
@@ -1190,7 +1193,6 @@
 ! !
 
 
-
 !LimitedPrecisionReal methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -1261,7 +1263,6 @@
    ^ 0
 ! !
 
-
 !LimitedPrecisionReal methodsFor:'testing'!
 
 isFinite