--- a/ByteArray.st	Wed Sep 03 17:54:12 2003 +0200
+++ b/ByteArray.st	Wed Sep 03 17:57:04 2003 +0200
@@ -3013,6 +3013,31 @@
     "Created: / 31.10.2001 / 09:43:41 / cg"
 !
 
+storeArrayElementOn:aStream
+    "append a printed representation from which the receiver can be
+     reconstructed to aStream. (reimplemented to make it look better)"
+
+    self class == ByteArray ifTrue:[    "/ care for subclasses
+        aStream nextPutAll:'['.
+        self 
+            do:[:byte | byte storeOn:aStream]
+            separatedBy:[aStream space].
+        aStream nextPutAll:']'.
+        ^ self
+    ].
+    ^ self storeOn:aStream
+
+    "
+     #[1 2 3 4 5] storeOn: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"
+!
+
 storeOn:aStream
     "append a printed representation from which the receiver can be
      reconstructed to aStream. (reimplemented to make it look better)"
@@ -3285,5 +3310,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.157 2003-06-10 11:07:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.158 2003-09-03 15:56:36 stefan Exp $'
 ! !