--- a/Integer.st	Mon Aug 22 14:20:44 1994 +0200
+++ b/Integer.st	Mon Aug 22 14:21:15 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.14 1994-08-05 00:55:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.15 1994-08-22 12:21:15 claus Exp $
 '!
 
 !Integer class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.14 1994-08-05 00:55:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.15 1994-08-22 12:21:15 claus Exp $
 "
 !
 
@@ -73,10 +73,11 @@
     "for ST-80 compatibility:
      Return an empty Integer (uninitialized value) with space for
      numberOfBytes bytes (= digitLength). The additional argument
-     negative specifies if the result should be a negative number"
+     negative specifies if the result should be a negative number.
+     The digits can be stored byte-wise into the result, using digitAt:put:"
 
-    ^ (LargeInteger basicNew:numberOfBytes) 
-		sign:(negative ifTrue:[-1] ifFalse:[1])
+    ^ (LargeInteger basicNew numberOfDigits:numberOfBytes) 
+                sign:(negative ifTrue:[-1] ifFalse:[1])
 ! !
 
 !Integer class methodsFor:'misc'!
@@ -87,6 +88,11 @@
      method."
 
     DefaultDisplayRadix := aNumber
+
+    "
+     Integer displayRadix:16. 123456 inspect
+     Integer displayRadix:10. 123456 inspect
+    "
 ! !
 
 !Integer methodsFor:'arithmetic'!