--- a/ByteArray.st	Tue Jan 18 18:07:53 2011 +0100
+++ b/ByteArray.st	Tue Jan 18 18:09:02 2011 +0100
@@ -162,6 +162,7 @@
 ! !
 
 
+
 !ByteArray class methodsFor:'queries'!
 
 isBuiltInClass
@@ -173,6 +174,8 @@
     "Modified: 23.4.1996 / 15:56:25 / cg"
 ! !
 
+
+
 !ByteArray methodsFor:'Compatibility-Squeak'!
 
 bitXor:aByteArray
@@ -2701,34 +2704,6 @@
     "Created: / 31.10.2001 / 09:43:41 / cg"
 !
 
-storeArrayElementOn:aStream
-    "Store as element of an array. Omit the leading '#'"
-
-    |cls|
-
-    ((cls := self class) == ByteArray or:[cls == ImmutableByteArray]) ifTrue:[
-	"/ care for subclasses
-	aStream nextPut:$[.
-	self
-	    do:[:byte | byte storeOn:aStream]
-	    separatedBy:[aStream space].
-	aStream nextPut:$].
-	^ self
-    ].
-    super storeArrayElementOn:aStream
-
-    "
-     #[1 2 3 4 5] storeOn:Transcript
-     #[1 2 3 4 5] storeArrayElementOn: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)"
@@ -2930,6 +2905,7 @@
     "
 ! !
 
+
 !ByteArray methodsFor:'searching'!
 
 indexOf:aByte startingAt:start
@@ -2985,6 +2961,7 @@
     "
 ! !
 
+
 !ByteArray methodsFor:'testing'!
 
 isByteArray
@@ -3012,9 +2989,9 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.203 2010-09-21 06:58:04 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.204 2011-01-18 17:09:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.203 2010-09-21 06:58:04 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.204 2011-01-18 17:09:02 cg Exp $'
 ! !