--- a/MCWriter.st	Mon Oct 26 16:24:55 2009 +0100
+++ b/MCWriter.st	Mon Oct 26 16:25:02 2009 +0100
@@ -31,11 +31,16 @@
 !
 
 stream: aStream
-	stream _ aStream
+        stream _ aStream.
+        zip notNil ifTrue:[ zip writingTo:aStream ].
 ! !
 
 !MCWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriter.st,v 1.1 2006-11-22 13:05:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriter.st,v 1.2 2009-10-26 15:25:02 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriter.st,v 1.2 2009-10-26 15:25:02 cg Exp $'
 ! !