--- a/MCStWriter.st	Wed Mar 07 16:04:04 2018 +0100
+++ b/MCStWriter.st	Wed Mar 07 16:05:26 2018 +0100
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/monticello' }"
 
+"{ NameSpace: Smalltalk }"
+
 MCWriter subclass:#MCStWriter
 	instanceVariableNames:'initStream'
 	classVariableNames:''
@@ -92,14 +96,14 @@
                 store: definition commentStamp;
                 nextPutAll: ' prior: 0!!';
                 cr;
-                nextChunkPut: definition comment ? '';
+                nextChunkPut: (definition comment ? '');
                 cr.
 
     "Modified: / 12-09-2010 / 17:05:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 writeClassDefinition: definition
-	self chunkContents: [:s | definition printDefinitionOn: stream]
+        self chunkContents: [:s | definition printDefinitionOn: stream]
 !
 
 writeDefinitions: aCollection
@@ -165,14 +169,14 @@
 !MCStWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStWriter.st,v 1.6 2013-05-15 12:03:48 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStWriter.st,v 1.6 2013-05-15 12:03:48 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: MCStWriter.st,v 1.6 2013-05-15 12:03:48 cg Exp $'
+    ^ '$Id$'
 ! !