--- a/LimitedPrecisionReal.st	Sun Dec 01 05:51:01 2019 +0100
+++ b/LimitedPrecisionReal.st	Sun Dec 01 05:54:02 2019 +0100
@@ -521,7 +521,7 @@
     "return the largest exponent.
      The computation below assumes standard IEEE format"
 
-    ^ (1 << (self numBitsInExponent-1))
+    ^ (1 << (self numBitsInExponent-1))-1
 
     "
      Float emax       -> 1023
@@ -537,7 +537,7 @@
     "return the smallest exponent.
      The computation below assumes standard IEEE format"
 
-    ^ 3 - (1 << (self numBitsInExponent-1))
+    ^ 2 - (1 << (self numBitsInExponent-1))
 
     "
      Float emin       -> -1022