--- a/Number.st	Mon Aug 03 19:09:19 1998 +0200
+++ b/Number.st	Mon Aug 03 20:05:48 1998 +0200
@@ -54,7 +54,12 @@
 
     ^ self readFrom:aString
 
-    "Created: / 25.10.1997 / 15:24:16 / cg"
+    "
+     Number fromString:'12345'
+     '12345' asNumber
+    "
+
+    "Modified: / 3.8.1998 / 20:05:11 / cg"
 !
 
 fromString:aString onError:exceptionBlock
@@ -62,7 +67,12 @@
 
     ^ self readFrom:aString onError:exceptionBlock
 
-    "Created: / 25.10.1997 / 15:24:33 / cg"
+    "
+     Number fromString:'12345' onError:0
+     Number fromString:'fooBarBaz' onError:0
+    "
+
+    "Modified: / 3.8.1998 / 20:05:34 / cg"
 !
 
 readFrom:aStringOrStream onError:exceptionBlock
@@ -576,5 +586,5 @@
 !Number class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.45 1998-07-09 08:19:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.46 1998-08-03 18:05:48 cg Exp $'
 ! !