# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256570702 -3600
# Node ID ebac03eed350bf4cf566781ee94056ad8bb03a72
# Parent  98f158a061a2ce2d5fa4fa2e3b3a22dd7bf0ae11
more porting (but still unfinished)

diff -r 98f158a061a2 -r ebac03eed350 MCWriter.st
--- 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 $'
 ! !