--- a/Class.st	Wed Mar 19 19:46:19 1997 +0100
+++ b/Class.st	Wed Mar 19 19:50:27 1997 +0100
@@ -1606,7 +1606,10 @@
 
     string := self name, ' classPool at: ', anAssociation key storeString.
     stream nextNumber: 2 put: string size.
-    string do: [:char| stream nextPut: char asciiValue]
+    stream nextPutBytes:(string size) from:string startingAt:1.
+"/    string do: [:char| stream nextPut: char asciiValue]
+
+    "Modified: 19.3.1997 / 18:49:54 / cg"
 !
 
 storeBinaryDefinitionOn: stream manager: manager
@@ -1642,9 +1645,10 @@
     ].
     stream nextNumber:2 put:sz.
     varnames keysAndValuesDo:[:i :nm |
-        nm do:[:c |
-            stream nextPut:c asciiValue
-        ].
+        stream nextPutBytes:(nm size) from:nm startingAt:1.
+"/        nm do:[:c |
+"/            stream nextPut:c asciiValue
+"/        ].
         i ~~ n ifTrue:[stream nextPut:(Character space asciiValue)]
     ].
 
@@ -1652,9 +1656,10 @@
      output my name
     "
     stream nextNumber:2 put:name size.
-    name do:[:c| 
-        stream nextPut:c asciiValue
-    ]
+    stream nextPutBytes:(name size) from:name startingAt:1.
+"/    name do:[:c| 
+"/        stream nextPut:c asciiValue
+"/    ]
 
     "
      |s|
@@ -1663,7 +1668,7 @@
      Object readBinaryFrom:(ReadStream on:s contents)  
     "
 
-    "Modified: 23.4.1996 / 09:30:36 / cg"
+    "Modified: 19.3.1997 / 18:47:10 / cg"
 ! !
 
 !Class methodsFor:'c function interfacing'!
@@ -4908,6 +4913,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.260 1997-03-17 17:17:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.261 1997-03-19 18:49:32 cg Exp $'
 ! !
 Class initialize!