--- a/ReadStream.st	Tue Jun 05 17:57:48 2007 +0200
+++ b/ReadStream.st	Tue Jun 05 18:20:22 2007 +0200
@@ -793,25 +793,6 @@
     }
 %}.
     ^ super skipThrough:anObject
-!
-
-upToEnd
-    "answer the contents of the stream from the current position up to the end"
-
-    |start|
-
-    start := position + 1 - ZeroPosition.
-    (start > readLimit) ifTrue:[^ self pastEndRead].
-    position := readLimit .
-    ^ collection copyFrom:start to:readLimit.
-    
-
-    "
-        '1234567890' readStream upToEnd
-        #(1 2 3 4 5 6 7 8 9 0) readStream upToEnd
-        '1234567890' readStream next; upToEnd
-        '1234567890' readStream next; upToEnd; next
-    "
 ! !
 
 !ReadStream methodsFor:'writing'!
@@ -825,5 +806,5 @@
 !ReadStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.61 2007-06-05 15:57:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.62 2007-06-05 16:20:22 stefan Exp $'
 ! !