--- a/MCVersionInfoWriter.st	Sat Aug 20 13:44:14 2011 +0200
+++ b/MCVersionInfoWriter.st	Sat Aug 20 13:44:19 2011 +0200
@@ -16,13 +16,13 @@
 
 writeVersionInfo: aVersionInfo
         (self isWritten: aVersionInfo)
-                ifTrue: [^ stream nextPutAll: '(id ', aVersionInfo id asString storeString "printString", ')'].
+                ifTrue: [^ stream nextPutAll: '(id ', aVersionInfo id asString printString, ')'].
         stream nextPut: $(.
         #(name message id date time author) 
                 do: [:sel | 
                         stream nextPutAll: sel.
-                        stream nextPut: $ .
-                        ((aVersionInfo perform: sel) ifNil: ['']) asString storeOn: "printOn:" stream.
+                        stream nextPut: Character space.
+                        ((aVersionInfo perform: sel) ifNil: ['']) printString storeOn: stream.
                         stream nextPut: $ ].
         stream nextPutAll: 'ancestors ('.
         aVersionInfo ancestors do: [:ea | self writeVersionInfo: ea].
@@ -30,10 +30,12 @@
         aVersionInfo stepChildren do: [:ea | self writeVersionInfo: ea].
         stream nextPutAll: '))'.
         self wrote: aVersionInfo
+
+    "Modified: / 11-09-2010 / 21:44:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 written
-	^ written ifNil: [written _ Set new]
+	^ written ifNil: [written := Set new]
 !
 
 wrote: aVersionInfo
@@ -43,9 +45,13 @@
 !MCVersionInfoWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfoWriter.st,v 1.2 2009-10-26 15:25:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfoWriter.st,v 1.3 2011-08-20 11:44:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfoWriter.st,v 1.2 2009-10-26 15:25:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfoWriter.st,v 1.3 2011-08-20 11:44:19 cg Exp $'
+!
+
+version_SVN
+    ^ '§Id: MCVersionInfoWriter.st 7 2010-09-12 07:18:55Z vranyj1 §'
 ! !