--- a/Class.st	Sun Dec 03 18:29:37 1995 +0100
+++ b/Class.st	Sun Dec 03 19:02:39 1995 +0100
@@ -1419,9 +1419,8 @@
 addChangeRecordForPrimitiveDefinitions:aClass to:aStream
     "append a primitiveDefinitions-record to aStream"
 
-    aStream nextPutAll:aClass name 
-			, ' primitiveDefinitions:' 
-			, aClass primitiveDefinitionsString storeString.
+    aStream nextPutAll:aClass name; nextPutAll:' primitiveDefinitions:'''; cr; 
+	    nextPutAll:(aClass primitiveDefinitionsString storeString copyFrom:2).
     aStream nextPutChunkSeparator.
 !
 
@@ -1437,9 +1436,8 @@
 addChangeRecordForPrimitiveFunctions:aClass to:aStream
     "append a primitiveFunctions-record to aStream"
 
-    aStream nextPutAll:aClass name 
-			, ' primitiveFunctions:' 
-			, aClass primitiveFunctionsString storeString.
+    aStream nextPutAll:aClass name; nextPutAll:' primitiveFunctions:'''; cr; 
+	    nextPutAll:(aClass primitiveFunctionsString storeString copyFrom:2).
     aStream nextPutChunkSeparator.
 !
 
@@ -1455,9 +1453,8 @@
 addChangeRecordForPrimitiveVariables:aClass to:aStream
     "append a primitiveVariables-record to aStream"
 
-    aStream nextPutAll:aClass name 
-			, ' primitiveVariables:' 
-			, aClass primitiveVariablesString storeString.
+    aStream nextPutAll:aClass name; nextPutAll:' primitiveVariables:'''; cr; 
+	    nextPutAll:(aClass primitiveVariablesString storeString copyFrom:2).
     aStream nextPutChunkSeparator.
 !
 
@@ -3357,5 +3354,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.91 1995-12-03 17:29:10 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.92 1995-12-03 18:02:39 cg Exp $'! !
 Class initialize!