--- a/Integer.st	Fri Jan 10 18:56:51 1997 +0100
+++ b/Integer.st	Fri Jan 10 18:58:00 1997 +0100
@@ -128,7 +128,7 @@
             "-xxr<number> is invalid; should be xxr-<val>"
 
             negative ifTrue:[
-                'invalid (negative) radix ignored' errorPrintNL.
+                'Integer [warning]: invalid (negative) radix ignored' errorPrintCR.
                 negative := false
             ].
             str next.
@@ -151,7 +151,7 @@
     "
 
     "Created: 16.11.1995 / 22:48:59 / cg"
-    "Modified: 8.10.1996 / 19:25:29 / cg"
+    "Modified: 10.1.1997 / 17:54:30 / cg"
 !
 
 readFrom:aStringOrStream radix:radix
@@ -1211,5 +1211,5 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.55 1996-11-14 11:12:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.56 1997-01-10 17:58:00 cg Exp $'
 ! !