--- a/PositionableStream.st	Wed Nov 21 16:03:43 2001 +0100
+++ b/PositionableStream.st	Wed Nov 21 16:04:10 2001 +0100
@@ -999,6 +999,7 @@
     "setup for streaming to the end of aCollection"
 
     collection := aCollection.
+    readLimit := aCollection size + 1.
     self setToEnd
 ! !
 
@@ -1079,6 +1080,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.104 2001-11-16 15:25:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.105 2001-11-21 15:04:10 cg Exp $'
 ! !
 PositionableStream initialize!