--- a/Behavior.st	Mon Apr 22 19:54:32 1996 +0200
+++ b/Behavior.st	Tue Apr 23 09:32:33 1996 +0200
@@ -1085,7 +1085,8 @@
 storeBinaryDefinitionOn: stream manager: manager
     "binary store of a classes definition.
      Classes will store the name only and restore by looking for
-     that name in the Smalltalk dictionary."
+     that name in the Smalltalk dictionary.
+     This is an internal interface for binary storage mechanism."
 
     | myName |
 
@@ -1094,7 +1095,7 @@
     stream nextNumber:2 put:0.
     stream nextNumber:2 put:myName size.
     myName do:[:c| 
-	stream nextPut:c asciiValue
+        stream nextPut:c asciiValue
     ]
 
     "
@@ -1108,6 +1109,8 @@
      Rectangle storeBinaryOn:s.
      Object readBinaryFrom:(ReadStream on:s contents)  
     "
+
+    "Modified: 23.4.1996 / 09:29:44 / cg"
 ! !
 
 !Behavior methodsFor:'compiler interface'!
@@ -3184,5 +3187,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.69 1996-04-16 18:07:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.70 1996-04-23 07:31:38 cg Exp $'
 ! !

--- a/Class.st	Mon Apr 22 19:54:32 1996 +0200
+++ b/Class.st	Tue Apr 23 09:32:33 1996 +0200
@@ -1193,7 +1193,9 @@
 !
 
 storeBinaryDefinitionOn: stream manager: manager
-    "classes only store the name, signature and instvar names.
+    "store the receiver in a binary format on stream.
+     This is an internal interface for binary storage mechanism.
+     classes only store the name, signature and instvar names.
      They restore by looking for that name in the Smalltalk dictionary.
      However, using the signature, a check for being valid is made at
      restore time.
@@ -1216,17 +1218,17 @@
     varnames := self allInstVarNames.
     n := varnames size.
     n == 0 ifTrue:[
-	sz := 0
+        sz := 0
     ] ifFalse:[
-	sz := varnames inject:0 into:[:sum :nm | sum + nm size].
-	sz := sz + n - 1.
+        sz := varnames inject:0 into:[:sum :nm | sum + nm size].
+        sz := sz + n - 1.
     ].
     stream nextNumber:2 put:sz.
     varnames keysAndValuesDo:[:i :nm |
-	nm do:[:c |
-	    stream nextPut:c asciiValue
-	].
-	i ~~ n ifTrue:[stream nextPut:(Character space asciiValue)]
+        nm do:[:c |
+            stream nextPut:c asciiValue
+        ].
+        i ~~ n ifTrue:[stream nextPut:(Character space asciiValue)]
     ].
 
     "
@@ -1234,7 +1236,7 @@
     "
     stream nextNumber:2 put:name size.
     name do:[:c| 
-	stream nextPut:c asciiValue
+        stream nextPut:c asciiValue
     ]
 
     "
@@ -1243,6 +1245,8 @@
      Rectangle storeBinaryOn:s.
      Object readBinaryFrom:(ReadStream on:s contents)  
     "
+
+    "Modified: 23.4.1996 / 09:30:36 / cg"
 ! !
 
 !Class methodsFor:'c function interfacing'!
@@ -3959,6 +3963,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.152 1996-04-20 19:11:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.153 1996-04-23 07:32:33 cg Exp $'
 ! !
 Class initialize!