--- 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!