--- a/LimitedPrecisionReal.st	Fri Jul 19 17:25:59 2019 +0200
+++ b/LimitedPrecisionReal.st	Fri Jul 19 17:26:42 2019 +0200
@@ -473,15 +473,16 @@
 !
 
 computeEpsilon
-    "return the maximum relative spacing"
+    "compute the maximum relative spacing of instances of mySelf
+     (i.e. the value-delta of the least significant bit)"
 
-    ^ (self coerce:self radix) raisedToInteger:(1 - self precision).
+    ^ (self coerce:self radix) raisedToInteger:(self precision negated).
 
     "
       Float radix
       Float precision
       
-      Float computeEpsilon       
+      Float computeEpsilon    
       ShortFloat computeEpsilon  
       LongFloat computeEpsilon   
       QDouble epsilon   
@@ -489,6 +490,7 @@
 
     "Modified (comment): / 03-07-2017 / 12:12:06 / cg"
     "Modified: / 10-05-2018 / 01:19:25 / stefan"
+    "Modified (comment): / 19-07-2019 / 17:26:30 / Claus Gittinger"
 !
 
 emax