--- a/Class.st	Thu Nov 14 12:12:57 1996 +0100
+++ b/Class.st	Fri Nov 15 11:34:26 1996 +0100
@@ -2605,7 +2605,7 @@
      If both are nil, all are saved. See version-method handling in
      fileOut for what this is needed."
 
-    |dict source sortedSelectors first privacy interestingMethods|
+    |dict source sortedSelectors first privacy interestingMethods cat|
 
     dict := self methodDictionary.
     dict notNil ifTrue:[
@@ -2652,14 +2652,14 @@
                     aStream nextPutChunkSeparator.
                     self printClassNameOn:aStream.
                     privacy ~~ #public ifTrue:[
-                        aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'''.
+                        aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'.
                     ] ifFalse:[
-                        aStream nextPutAll:' methodsFor:'''.
+                        aStream nextPutAll:' methodsFor:'.
                     ].
-                    aCategory notNil ifTrue:[
-                        aStream nextPutAll:aCategory
-                    ].
-                    aStream nextPut:$'; nextPutChunkSeparator; cr; cr.
+                    cat := aCategory.
+                    cat isNil ifTrue:[ cat := '' ].
+                    aStream nextPutAll:aCategory asString storeString.
+                    aStream nextPutChunkSeparator; cr; cr.
                     first := false.
                 ].
                 source := aMethod source.
@@ -2679,7 +2679,7 @@
 
     "Modified: 28.8.1995 / 14:30:41 / claus"
     "Modified: 12.6.1996 / 11:37:33 / stefan"
-    "Modified: 12.7.1996 / 23:36:21 / cg"
+    "Modified: 15.11.1996 / 11:32:21 / cg"
 !
 
 fileOutCategory:aCategory on:aStream
@@ -2800,15 +2800,16 @@
         self printClassNameOn:aStream.
 
         (privacy := aMethod privacy) ~~ #public ifTrue:[
-            aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'''.
+            aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'.
         ] ifFalse:[
-            aStream nextPutAll:' methodsFor:'''.
+            aStream nextPutAll:' methodsFor:'.
         ].
         cat := aMethod category.
-        cat notNil ifTrue:[
-            aStream nextPutAll:cat
+        cat isNil ifTrue:[
+            cat := ''
         ].
-        aStream nextPut:$'; nextPutChunkSeparator; cr; cr.
+        aStream nextPutAll:cat asString storeString.
+        aStream nextPutChunkSeparator; cr; cr.
         source := aMethod source.
         source isNil ifTrue:[
             FileOutErrorSignal 
@@ -2826,6 +2827,7 @@
 
     "Modified: 27.8.1995 / 01:23:19 / claus"
     "Modified: 12.6.1996 / 11:44:41 / stefan"
+    "Modified: 15.11.1996 / 11:32:43 / cg"
 !
 
 fileOutOn:aStream
@@ -4495,6 +4497,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.217 1996-11-08 23:46:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.218 1996-11-15 10:34:26 cg Exp $'
 ! !
 Class initialize!