--- a/FilteringStream.st	Thu Jan 25 15:32:31 2001 +0100
+++ b/FilteringStream.st	Thu Feb 01 14:32:24 2001 +0100
@@ -432,10 +432,22 @@
     ^ inputStream contentsSpecies
 
     "Created: 11.1.1997 / 16:23:22 / cg"
+!
+
+position
+    "return the receiver streams position"
+
+    |rawPosition|
+
+    rawPosition := inputStream position.
+    readAhead notNil ifTrue:[
+        rawPosition := rawPosition - 1
+    ].
+    ^ rawPosition
 ! !
 
 !FilteringStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FilteringStream.st,v 1.7 2000-05-22 11:11:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FilteringStream.st,v 1.8 2001-02-01 13:32:24 cg Exp $'
 ! !