--- a/PositionableStream.st	Mon Jul 15 11:28:10 2002 +0200
+++ b/PositionableStream.st	Mon Jul 15 11:28:50 2002 +0200
@@ -850,6 +850,18 @@
 
 !
 
+positionStartingAt0
+    "return the read position, guaranteed to be zero based"
+
+    ^ position - self class zeroPosition
+!
+
+positionStartingAt1
+    "return the read position, guaranteed to be one-based"
+
+    ^ self class zeroPosition == 1 ifTrue:[position] ifFalse:[position+1]
+!
+
 reset
     "set the read position to the beginning of the collection"
 
@@ -1109,6 +1121,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.111 2002-05-08 14:30:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.112 2002-07-15 09:28:50 stefan Exp $'
 ! !
 PositionableStream initialize!