--- a/LineNumberReadStream.st	Wed Jan 07 17:04:59 2009 +0100
+++ b/LineNumberReadStream.st	Sun Jan 11 16:39:18 2009 +0100
@@ -9,9 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
 "{ Package: 'stx:goodies' }"
 
 FilteringStream subclass:#LineNumberReadStream
@@ -142,8 +139,30 @@
     "Modified: 11.1.1997 / 16:58:42 / cg"
 ! !
 
+!LineNumberReadStream methodsFor:'queries'!
+
+atEnd
+    "return true, if the receiver stream is at the end"
+
+    readAhead notNil ifTrue:[^ false].
+    ^ inputStream atEnd
+!
+
+peekOrNil
+    "peek ahead for the next character, or return nil"
+
+    readAhead notNil ifTrue:[
+        ^ readAhead
+    ].
+    ^ inputStream peekOrNil
+!
+
+position:aPosition
+    inputStream position:aPosition
+! !
+
 !LineNumberReadStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/LineNumberReadStream.st,v 1.5 2003-08-12 20:01:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LineNumberReadStream.st,v 1.6 2009-01-11 15:39:18 cg Exp $'
 ! !