--- a/ByteArray.st	Mon Dec 20 07:13:27 2010 +0000
+++ b/ByteArray.st	Fri Feb 04 23:09:23 2011 +0000
@@ -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,15 +2989,15 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ByteArray.st 10602 2010-12-20 07:13:27Z vranyj1 $'
+    ^ '$Id: ByteArray.st 10604 2011-02-04 23:09:23Z vranyj1 $'
 !
 
 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 '
 !
 
 version_SVN
-    ^ '$Id: ByteArray.st 10602 2010-12-20 07:13:27Z vranyj1 $'
+    ^ '$Id: ByteArray.st 10604 2011-02-04 23:09:23Z vranyj1 $'
 ! !
 
 
@@ -3028,3 +3005,4 @@
 
 
 
+