--- a/SmalltalkChunkFileSourceWriter.st	Fri Oct 02 16:22:04 2009 +0200
+++ b/SmalltalkChunkFileSourceWriter.st	Fri Oct 02 16:30:07 2009 +0200
@@ -375,6 +375,26 @@
     "Created: 1.4.1997 / 16:04:44 / stefan"
 !
 
+fileOutCommentEndOn:aStream
+    "Writes a comment end mark on aStream."
+
+    "/ intentionally left blank - make each line an EOL-comment instead
+!
+
+fileOutCommentLine:aString on:aStream
+    "Writes a single line of comment on a comment to a stream."
+
+    aStream 
+        nextPutAll:'"/ ';
+        nextPutAll: aString
+!
+
+fileOutCommentStartOn:aStream
+    "Writes a comment start mark on aStream."
+
+    "/ intentionally left blank - make each line an EOL-comment instead
+!
+
 fileOutMethod:aMethod on:aStream
     "file a single method onto aStream."
 
@@ -436,9 +456,9 @@
 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.11 2009-09-29 17:20:13 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.12 2009-10-02 14:30:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.11 2009-09-29 17:20:13 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.12 2009-10-02 14:30:07 cg Exp $'
 ! !