--- a/ByteArray.st	Tue Apr 23 09:35:32 1996 +0200
+++ b/ByteArray.st	Tue Apr 23 09:42:56 1996 +0200
@@ -1172,15 +1172,18 @@
 storeBinaryDefinitionOn:stream manager:manager
     "append a binary representation of the receiver onto stream.
      Redefined since ByteArrays are stored with a special type code and
-     in a more compact way."
+     in a more compact way.
+     This is an internal interface for binary storage mechanism."
 
     "not, if I have named instance variables"
     self class instSize ~~ 0 ifTrue:[
-	^ super storeBinaryDefinitionOn:stream manager:manager
+        ^ super storeBinaryDefinitionOn:stream manager:manager
     ].
     manager putIdOfClass:(self class) on: stream.
     stream nextNumber:4 put:(self basicSize).
     stream nextPutAll:(self asByteArray)
+
+    "Modified: 23.4.1996 / 09:30:02 / cg"
 ! !
 
 !ByteArray methodsFor:'converting'!
@@ -2155,5 +2158,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.54 1996-04-22 10:56:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.55 1996-04-23 07:42:56 cg Exp $'
 ! !