--- a/PositionableStream.st	Sun Jul 02 14:53:36 2000 +0200
+++ b/PositionableStream.st	Mon Jul 03 10:55:50 2000 +0200
@@ -167,17 +167,6 @@
     ^ peekObject
 !
 
-peekFor:something
-    "return true and move past if next == something; 
-     otherwise stay and let position unchanged"
-
-    self next == something ifTrue:[
-	^ true
-    ].
-    self backStep.
-    ^ false
-!
-
 peekForAll:aCollection
     "return true and advance if the next elements are the same
      as aCollection. 
@@ -1033,6 +1022,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.92 2000-05-22 11:10:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.93 2000-07-03 08:55:22 cg Exp $'
 ! !
 PositionableStream initialize!