--- a/Stream.st	Wed May 13 11:06:36 2009 +0200
+++ b/Stream.st	Wed May 13 11:07:55 2009 +0200
@@ -197,9 +197,12 @@
 !Stream methodsFor:'accessing'!
 
 contents
-    "return the entire contents of the stream"
-
-    ^ self upToEnd
+    "return the entire contents of the stream.
+     For a readStream, that is the rest (i.e. upToEnd),
+     for a writeStream, that is the collected data. As we do not know here,
+     what we are, this is the responsibility of a subclass..."
+
+    ^ self subclassResponsibility
 !
 
 signalAtEnd
@@ -2922,7 +2925,7 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.165 2009-05-13 09:06:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.166 2009-05-13 09:07:55 cg Exp $'
 ! !
 
 Stream initialize!