--- a/Integer.st	Wed Aug 04 09:58:10 1999 +0200
+++ b/Integer.st	Wed Aug 04 16:10:22 1999 +0200
@@ -1695,15 +1695,16 @@
     "Modified: / 20.1.1998 / 14:10:45 / stefan"
 !
 
-printOn:aStream base:base
+printOn:aStream base:b
     "return a string representation of the receiver in the specified
      radix (without the initial XXr)"
 
-    |num s divMod mod r r2 r4 nD numN|
+    |base num s divMod mod r r2 r4 nD numN|
 
+    base := b.
     (base between:2 and:36) ifFalse:[
-        self error:'invalid base'.
-        ^ self printOn:aStream base:10
+        self error:'invalid base' mayProceed:true.
+        base := 10.
     ].
 
     (self = 0) ifTrue:[aStream nextPut:$0. ^ self].
@@ -2175,5 +2176,5 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.101 1999-07-21 15:24:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.102 1999-08-04 14:07:41 cg Exp $'
 ! !