--- a/SmalltalkChunkFileSourceWriter.st	Wed Jan 28 18:02:47 2015 +0100
+++ b/SmalltalkChunkFileSourceWriter.st	Wed Jan 28 19:09:12 2015 +0100
@@ -205,7 +205,7 @@
         "/ a comment - if any
         "/
         (comment := nonMeta comment) notNil ifTrue:[
-            nonMeta fileOutCommentOn:outStream.
+            self fileOutClassCommentOf:nonMeta on:outStream.
         ].
         "/
         "/ ST/X primitive definitions - if any
@@ -532,6 +532,10 @@
     "Created: 1.4.1997 / 16:04:44 / stefan"
 !
 
+fileOutClassCommentOf:aNonMetaClass on:aStream
+    aNonMetaClass fileOutCommentOn:aStream.
+!
+
 fileOutClassInstVarDefinitionOf:aNonMetaClass on:aStream
     aNonMetaClass fileOutClassInstVarDefinitionOn:aStream.
     aStream nextPutChunkSeparator. 
@@ -702,11 +706,11 @@
 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.28 2015-01-28 17:02:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.29 2015-01-28 18:09:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.28 2015-01-28 17:02:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.29 2015-01-28 18:09:12 cg Exp $'
 !
 
 version_SVN