--- a/Collection.st	Tue Dec 18 22:35:06 2012 +0100
+++ b/Collection.st	Wed Dec 19 10:24:31 2012 +0100
@@ -287,6 +287,20 @@
     ^ ValueNotFoundSignal
 ! !
 
+!Collection class methodsFor:'instance creation-streaming'!
+
+writeStreamClass
+    "the type of stream used in writeStream"
+
+    ^ WriteStream
+
+    "
+     OrderedCollection writeStreamClass
+    "
+
+    "Created: / 09-01-2011 / 10:37:15 / cg"
+! !
+
 !Collection class methodsFor:'misc ui support'!
 
 iconInBrowserSymbol
@@ -1873,7 +1887,7 @@
 writeStream
     "return a stream for writing onto the receiver"
 
-    ^ WriteStream on:self
+    ^ self class writeStreamClass on:self
 
     "
      |s|
@@ -4441,11 +4455,12 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.284 2012-11-28 11:05:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.285 2012-12-19 09:24:31 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.284 2012-11-28 11:05:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.285 2012-12-19 09:24:31 stefan Exp $'
 ! !
 
+
 Collection initialize!