--- a/VSEChunkFileSourceWriter.st	Mon Feb 02 12:34:18 2015 +0100
+++ b/VSEChunkFileSourceWriter.st	Mon Feb 02 16:12:31 2015 +0100
@@ -160,13 +160,12 @@
 
     |comment s|
 
+^ self.
+    (comment := aNonMetaClass comment) isEmptyOrNil ifTrue:[^ self].
+
     aStream nextPutAll:(self rewrittenClassNameOf:aNonMetaClass).
     aStream nextPutAll:' comment:'.
-    (comment := aNonMetaClass comment) isNil ifTrue:[
-        s := ''''''
-    ] ifFalse:[
-        s := comment storeString
-    ].
+    s := comment copyReplaceAll:$' with:$" "storeString" .
     aStream nextPutAllAsChunk:s.
     aStream nextPutChunkSeparator.
     aStream cr.
@@ -314,10 +313,10 @@
 !VSEChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.7 2015-02-02 11:34:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.8 2015-02-02 15:12:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.7 2015-02-02 11:34:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.8 2015-02-02 15:12:31 cg Exp $'
 ! !