--- a/ReadStream.st	Tue Jul 30 19:38:33 2013 +0200
+++ b/ReadStream.st	Tue Jul 30 20:59:59 2013 +0200
@@ -144,6 +144,14 @@
     ^ false
 !
 
+remainingSize
+    "return the number of remaining elements in the streamed collection."
+
+    ^ collection size - position
+
+    "Created: / 30-07-2013 / 20:18:12 / cg"
+!
+
 size
     "return the number of remaining elements in the streamed collection."
 
@@ -847,10 +855,10 @@
 !ReadStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.69 2013-06-03 18:39:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.70 2013-07-30 18:59:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.69 2013-06-03 18:39:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.70 2013-07-30 18:59:59 cg Exp $'
 ! !