--- a/ByteArray.st	Wed Jun 16 14:13:25 2004 +0200
+++ b/ByteArray.st	Wed Jun 16 14:19:03 2004 +0200
@@ -1079,7 +1079,7 @@
 
     "not, if I have named instance variables"
     (myClass := self class) instSize ~~ 0 ifTrue:[
-	^ super storeBinaryDefinitionOn:stream manager:manager
+        ^ super storeBinaryDefinitionOn:stream manager:manager
     ].
 
     myBasicSize := self basicSize.
@@ -1089,15 +1089,19 @@
 
     ((myClass == ByteArray) 
     and:[myBasicSize <= 255]) ifTrue:[
-	"/ special encoding: <codeForByteArray> <len> <bytes> ...
-	stream nextPut:(manager codeForByteArray); nextPut:myBasicSize.
+        "/ special encoding: <codeForByteArray> <len> <bytes> ...
+        stream nextPut:(manager codeForByteArray); nextPut:myBasicSize.
     ] ifFalse:[
-	manager putIdOfClass:myClass on:stream.
-	stream nextNumber:4 put:myBasicSize.
+        manager putIdOfClass:myClass on:stream.
+        stream nextNumber:4 put:myBasicSize.
     ].
-    stream nextPutBytes:myBasicSize from:self startingAt:1.
+    self storeBinaryElementsOn:stream.
 
     "Modified: / 2.11.1997 / 15:28:45 / cg"
+!
+
+storeBinaryElementsOn:aStream
+    aStream nextPutBytes:self basicSize from:self startingAt:1.
 ! !
 
 !ByteArray methodsFor:'comparing'!
@@ -3333,5 +3337,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.165 2004-06-11 18:21:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.166 2004-06-16 12:19:03 cg Exp $'
 ! !