--- a/ByteArray.st	Thu Nov 25 20:08:59 1999 +0100
+++ b/ByteArray.st	Thu Nov 25 21:11:30 1999 +0100
@@ -2610,21 +2610,48 @@
     "Modified: 22.4.1996 / 12:54:06 / cg"
 !
 
+printOn:aStream
+    "append a printed representation to aStream"
+
+    self class == ByteArray ifTrue:[    "/ care for subclasses
+        aStream nextPutAll:'#['.
+        self 
+            do:[:byte | byte printOn:aStream]
+            separatedBy:[aStream space].
+        aStream nextPut:$].
+        ^ self
+    ].
+    ^ super printOn:aStream
+
+    "
+     #[1 2 3 4 5] printOn:Transcript
+
+
+     #[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"
+!
+
 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
+        aStream nextPutAll:'#['.
+        self 
+            do:[:byte | byte printOn:aStream base:radix]
+            separatedBy:[aStream space].
+        aStream nextPut:$].
+        ^ self
     ].
-    ^ super printOn:aStream
+    ^ self printOn:aStream
 
     "
-     #[1 2 3 4 5] printOn:Transcript base:2  
+     #[1 2 3 4 5] printOn:Transcript base:2
+     'Hello World' printOn:Transcript base:2
 
      #[1 2 3 4 5] storeString            
      #[1 2 3 4 5] displayString        
@@ -2764,6 +2791,7 @@
     "
 ! !
 
+
 !ByteArray methodsFor:'special queries'!
 
 usageCounts
@@ -2896,5 +2924,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.134 1999-11-12 23:22:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.135 1999-11-25 20:11:30 stefan Exp $'
 ! !