--- a/MCMczWriter.st	Thu Mar 21 23:46:57 2013 +0100
+++ b/MCMczWriter.st	Thu Mar 21 23:47:35 2013 +0100
@@ -102,7 +102,7 @@
 !MCMczWriter methodsFor:'visiting'!
 
 writeDefinitions: aVersion
-	self writeSnapshot: aVersion snapshot
+        self writeSnapshot: aVersion snapshot forVersion: aVersion
 !
 
 writeFormat
@@ -160,13 +160,14 @@
 !MCMczWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczWriter.st,v 1.6 2012-09-11 21:23:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczWriter.st,v 1.7 2013-03-21 22:47:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczWriter.st,v 1.6 2012-09-11 21:23:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczWriter.st,v 1.7 2013-03-21 22:47:35 cg Exp $'
 !
 
 version_SVN
     ^ '§Id: MCMczWriter.st 7 2010-09-12 07:18:55Z vranyj1 §'
 ! !
+