--- a/WriteStream.st	Mon Apr 25 16:31:26 2005 +0200
+++ b/WriteStream.st	Tue Apr 26 10:41:17 2005 +0200
@@ -226,6 +226,10 @@
     ].
 
     "Modified: 19.8.1997 / 17:53:11 / cg"
+!
+
+setCollection:newCollection
+    collection := newCollection
 ! !
 
 !WriteStream methodsFor:'private-accessing'!
@@ -585,5 +589,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.61 2004-10-01 07:37:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.62 2005-04-26 08:41:17 cg Exp $'
 ! !