--- a/CharacterArray.st	Fri Nov 14 13:13:47 2014 +0100
+++ b/CharacterArray.st	Fri Nov 14 13:27:36 2014 +0100
@@ -326,6 +326,7 @@
     "
 ! !
 
+
 !CharacterArray class methodsFor:'pattern matching'!
 
 matchEscapeCharacter
@@ -723,6 +724,7 @@
     ^ self == CharacterArray
 ! !
 
+
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 
 addLineDelimiters
@@ -3148,13 +3150,14 @@
 "/ ST-80 behavior:
 "/  ^ Number readFromString:self onError:0
 
-    ^ Number readFromString:self
-
-    "
-     '123'     asNumber
+    ^ Number fromString:self
+
+    "
+     '123'     asNumber 
      '123.567' asNumber
      '(5/6)'   asNumber
      'foo'     asNumber
+     '123a'    asNumber
      Object errorSignal handle:[:ex | ex returnWith:0] do:['foo' asNumber]
     "
 !
@@ -4950,6 +4953,7 @@
 ! !
 
 
+
 !CharacterArray methodsFor:'padded copying'!
 
 centerPaddedTo:newSize
@@ -5588,6 +5592,7 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
+
 !CharacterArray methodsFor:'special string converting'!
 
 asUnixFilenameString
@@ -6578,6 +6583,7 @@
     "
 ! !
 
+
 !CharacterArray methodsFor:'substring searching'!
 
 findRangeOfString:subString
@@ -7164,11 +7170,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.550 2014-11-11 17:01:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.551 2014-11-14 12:27:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.550 2014-11-11 17:01:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.551 2014-11-14 12:27:36 cg Exp $'
 ! !