--- a/MCVersion.st	Thu Mar 21 17:37:05 2013 +0100
+++ b/MCVersion.st	Thu Mar 21 17:37:58 2013 +0100
@@ -90,7 +90,11 @@
 !
 
 writerClass
-	^ MCMczWriter 
+    Smalltalk isSmalltalkX ifTrue:[
+        ^ MCStxMczWriter 
+    ] ifFalse:[
+        ^ MCMczWriter 
+    ]
 ! !
 
 !MCVersion methodsFor:'actions'!
@@ -230,5 +234,6 @@
 !MCVersion class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.4 2012-09-11 21:30:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.5 2013-03-21 16:37:58 cg Exp $'
 ! !
+