--- a/MCVersionInfoWriter.st	Fri Jun 07 03:17:13 2013 +0200
+++ b/MCVersionInfoWriter.st	Tue Jun 11 03:58:56 2013 +0200
@@ -16,7 +16,7 @@
 
 writeVersionInfo: aVersionInfo
         (self isWritten: aVersionInfo)
-                ifTrue: [^ stream nextPutAll: '(id ', aVersionInfo id asString printString, ')'].
+                ifTrue: [^ stream nextPutAll: '(id ', aVersionInfo id printString storeString, ')'].
         stream nextPut: $(.
         #(name message id date time author) 
                 do: [:sel | 
@@ -31,7 +31,7 @@
         stream nextPutAll: '))'.
         self wrote: aVersionInfo
 
-    "Modified: / 11-09-2010 / 21:44:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-06-2013 / 02:55:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 written
@@ -45,13 +45,14 @@
 !MCVersionInfoWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfoWriter.st,v 1.5 2012-09-11 21:30:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfoWriter.st,v 1.6 2013-06-11 01:58:56 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfoWriter.st,v 1.5 2012-09-11 21:30:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfoWriter.st,v 1.6 2013-06-11 01:58:56 vrany Exp $'
 !
 
 version_SVN
-    ^ '§Id: MCVersionInfoWriter.st 7 2010-09-12 07:18:55Z vranyj1 §'
+    ^ '$Id: MCVersionInfoWriter.st,v 1.6 2013-06-11 01:58:56 vrany Exp $'
 ! !
+