--- a/Stream.st	Sat Jun 06 12:12:25 2009 +0200
+++ b/Stream.st	Sat Jun 06 13:38:11 2009 +0200
@@ -194,6 +194,7 @@
     ^ ChunkSeparator
 ! !
 
+
 !Stream methodsFor:'accessing'!
 
 contents
@@ -640,6 +641,15 @@
     "
 !
 
+copyToEndFrom:inStream
+    "read from inStream, and write all data up to the end to the receiver.
+     Return the number of bytes which have been transferred.
+     Same functionality as copyToEnd:, but reversed arg and receiver
+     (useful in a cascade message of the writeStream)"
+
+    ^ inStream copyToEndInto:self
+!
+
 copyToEndInto:outStream
     "read from the receiver, and write all data up to the end to another stream.
      Return the number of bytes which have been transferred"
@@ -2925,7 +2935,7 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.166 2009-05-13 09:07:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.167 2009-06-06 11:38:11 cg Exp $'
 ! !
 
 Stream initialize!