--- a/ByteArray.st	Wed Mar 17 16:53:29 1999 +0100
+++ b/ByteArray.st	Wed Mar 17 17:01:26 1999 +0100
@@ -1795,6 +1795,31 @@
     "Modified: 22.4.1996 / 12:54:06 / cg"
 !
 
+printOn:aStream base:radix
+    "append a printed representation to aStream in the given number base."
+
+    self class == ByteArray ifTrue:[    "/ care for subclasses
+        aStream nextPutAll:'#['.
+        self 
+            do:[:byte | byte printOn:aStream base:radix]
+            separatedBy:[aStream space].
+        aStream nextPut:$].
+        ^ self
+    ].
+    ^ super printOn:aStream
+
+    "
+     #[1 2 3 4 5] printOn:Transcript base:2  
+
+     #[1 2 3 4 5] storeString            
+     #[1 2 3 4 5] displayString        
+     #[1 2 3 4 5] printString         
+    "
+
+    "Modified: / 12.9.1997 / 22:11:33 / cg"
+    "Modified: / 17.3.1999 / 17:01:31 / stefan"
+!
+
 storeOn:aStream
     "append a printed representation from which the receiver can be
      reconstructed to aStream. (reimplemented to make it look better)"
@@ -2049,5 +2074,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.102 1999-03-03 15:11:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.103 1999-03-17 16:01:26 stefan Exp $'
 ! !