--- a/ReadStream.st	Mon Aug 19 23:30:27 2013 +0100
+++ b/ReadStream.st	Tue Aug 20 00:07:19 2013 +0100
@@ -55,28 +55,6 @@
     ^ super with:aCollection
 ! !
 
-!ReadStream methodsFor:'Compatibility-Dolphin'!
-
-skipWhile:aBlock
-    "skip all elements for which aBlock returns true. Return true if more elements can be read,
-     false if eof has been reached."
-
-    [self atEnd] whileFalse:[
-	(aBlock value: self peek) ifFalse:[^ true].
-	self next
-    ].
-    ^ false
-
-    "
-     #(1 2 3 4 5 6 7 8 9 10) readStream
-	skipWhile:[:el | el <= 5];
-	next
-    "
-
-    "Created: / 23-09-2011 / 13:32:40 / cg"
-! !
-
-
 !ReadStream methodsFor:'converting'!
 
 readStream
@@ -868,10 +846,10 @@
 !ReadStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.71 2013-07-30 19:02:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.72 2013-08-18 10:13:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.71 2013-07-30 19:02:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.72 2013-08-18 10:13:59 cg Exp $'
 ! !