--- a/FilteringStream.st	Sat Aug 10 13:30:47 2013 +0200
+++ b/FilteringStream.st	Sat Aug 10 13:31:03 2013 +0200
@@ -462,27 +462,17 @@
 !
 
 position0Based
+    <resource: #obsolete>
     "return the receiver streams position"
 
-    |rawPosition|
-
-    rawPosition := inputStream position0Based.
-    readAhead notNil ifTrue:[
-	rawPosition := rawPosition - 1
-    ].
-    ^ rawPosition
+    ^ self position
 !
 
 position1Based
+    <resource: #obsolete>
     "return the receiver streams position"
 
-    |rawPosition|
-
-    rawPosition := inputStream position1Based.
-    readAhead notNil ifTrue:[
-	rawPosition := rawPosition - 1
-    ].
-    ^ rawPosition
+    ^ self position + 1
 !
 
 readStream
@@ -504,10 +494,10 @@
 !FilteringStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FilteringStream.st,v 1.19 2013-08-01 10:48:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FilteringStream.st,v 1.20 2013-08-10 11:31:03 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/FilteringStream.st,v 1.19 2013-08-01 10:48:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FilteringStream.st,v 1.20 2013-08-10 11:31:03 stefan Exp $'
 ! !