--- a/FixedPoint.st	Sun Aug 16 18:14:23 2009 +0100
+++ b/FixedPoint.st	Wed Aug 19 17:14:36 2009 +0100
@@ -222,7 +222,7 @@
 
     (aStream atEnd or:[aStream peek isLetter]) ifTrue: [^ exceptionBlock value].
 
-    integerPart := (aStream upToAny:decimalPointCharacters) asNumber.
+    integerPart := Number readFromString:(aStream upToAny:decimalPointCharacters).
     (aStream atEnd or: [aStream peek isLetter]) ifTrue: [
         fractionPart := 0.
         scale := 1.
@@ -1339,5 +1339,5 @@
 !FixedPoint class methodsFor:'documentation'!
 
 version
-    ^ '$Id: FixedPoint.st 10448 2009-06-14 16:10:51Z vranyj1 $'
+    ^ '$Id: FixedPoint.st 10467 2009-08-19 16:14:36Z vranyj1 $'
 ! !