--- a/FixedPoint.st	Thu Nov 13 21:39:20 2014 +0100
+++ b/FixedPoint.st	Thu Nov 13 22:49:07 2014 +0100
@@ -231,7 +231,7 @@
         integerPart := 0.
         aStream next.
     ] ifFalse:[
-        integerPart := Number readFromString:(aStream upToAny:decimalPointCharacters).
+        integerPart := Number readFrom:(aStream upToAny:decimalPointCharacters) onError:[^ exceptionBlock value].
     ].
     (aStream atEnd or: [aStream peek isLetter]) ifTrue: [
         fractionPart := 0.
@@ -247,7 +247,7 @@
 
         scale := fractionStream position.
         fractionStream reset.
-        fractionPart := Number readFrom:fractionStream.
+        fractionPart := Number readFrom:fractionStream onError:[^ exceptionBlock value]. 
     ].
 
     ^ self basicNew 
@@ -1352,10 +1352,10 @@
 !FixedPoint class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FixedPoint.st,v 1.46 2013-08-10 11:15:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FixedPoint.st,v 1.47 2014-11-13 21:49:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/FixedPoint.st,v 1.46 2013-08-10 11:15:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FixedPoint.st,v 1.47 2014-11-13 21:49:07 cg Exp $'
 ! !