--- a/LimitedPrecisionReal.st	Fri Jan 20 22:58:32 2017 +0100
+++ b/LimitedPrecisionReal.st	Mon Jan 23 11:39:35 2017 +0100
@@ -312,7 +312,7 @@
 
     |num|
 
-    num := super readFrom:aStringOrStream onError:exceptionBlock.
+    num := super readFrom:aStringOrStream onError:[^ exceptionBlock value].
     ^ self coerce:num
 
     "
@@ -327,6 +327,10 @@
      LongFloat readFrom:'.1'
      LongFloat readFrom:'0.1'
      LongFloat readFrom:'0'
+
+     LimitedPrecisionReal readFrom:'bla' onError:nil
+     Float readFrom:'bla' onError:nil
+     ShortFloat readFrom:'bla' onError:nil
     "
 
     "Created: / 07-01-1998 / 16:17:19 / cg"
@@ -1193,6 +1197,7 @@
 ! !
 
 
+
 !LimitedPrecisionReal methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -1263,6 +1268,7 @@
    ^ 0
 ! !
 
+
 !LimitedPrecisionReal methodsFor:'testing'!
 
 isFinite