--- a/PositionableStream.st	Wed May 25 00:21:26 2011 +0200
+++ b/PositionableStream.st	Fri May 27 16:22:27 2011 +0200
@@ -503,6 +503,9 @@
 
     collection := aCollection.
     readLimit := aCollection size.
+    readLimit == 0 ifTrue:[
+        self assert:(aCollection isCollection)
+    ].
     position := ZeroPosition
 !
 
@@ -657,7 +660,11 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.153 2009-01-13 11:58:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.154 2011-05-27 14:22:27 sr Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.154 2011-05-27 14:22:27 sr Exp $'
 ! !
 
 PositionableStream initialize!