--- a/Integer.st	Tue Jun 28 11:04:07 2005 +0200
+++ b/Integer.st	Tue Jun 28 15:09:27 2005 +0200
@@ -702,6 +702,15 @@
         (Integer readFromRomanString:romanString onError:nil) ~= n ifTrue:[self halt].
      ]
     "
+!
+
+readFromString:aString radix:base onError:exceptionBlock
+    |str val|
+
+    str := ReadStream on:aString.
+    val := self readFrom:str radix:base onError:[^ exceptionBlock value].
+    str atEnd ifFalse:[ ^ exceptionBlock value].
+    ^ val
 ! !
 
 !Integer class methodsFor:'Signal constants'!
@@ -2869,6 +2878,8 @@
      The receiver is printed in radix base (instead of the default, 10).
      This method is obsoleted by #printOn:base:, which is ST-80 & ANSI compatible."
 
+    <resource: #obsolete>
+
     self printOn:aStream base:base
 
     "Modified: / 20.1.1998 / 14:10:45 / stefan"
@@ -3478,7 +3489,7 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.173 2005-06-27 10:20:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.174 2005-06-28 13:09:27 stefan Exp $'
 ! !
 
 Integer initialize!