--- a/LimitedPrecisionReal.st	Wed Jun 14 15:23:48 2017 +0200
+++ b/LimitedPrecisionReal.st	Wed Jun 14 19:22:02 2017 +0200
@@ -441,8 +441,8 @@
     |radix _radix|
 
     radix := self radix.
-    _radix := (self fromNumber: radix).
-    ^ ((self fromNumber: 1) -
+    _radix := (self fromInteger: radix).
+    ^ ((self fromInteger: 1) -
             (_radix timesTwoPower: self precision negated - 1)) * radix
             * (_radix timesTwoPower: self emax - 1)
 
@@ -450,9 +450,10 @@
      Float fmax      
      ShortFloat fmax 
      LongFloat fmax  
+     QDouble fmax 
     "
 
-    "Modified (comment): / 16-11-2016 / 23:12:36 / cg"
+    "Modified (comment): / 14-06-2017 / 19:17:39 / cg"
 !
 
 fmin
@@ -1220,7 +1221,6 @@
 ! !
 
 
-
 !LimitedPrecisionReal methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -1291,7 +1291,6 @@
    ^ 0
 ! !
 
-
 !LimitedPrecisionReal methodsFor:'testing'!
 
 isFinite