--- a/PositionableStream.st	Tue Feb 25 11:15:21 2003 +0100
+++ b/PositionableStream.st	Tue Feb 25 11:17:54 2003 +0100
@@ -857,14 +857,13 @@
 position1Based
     "return the read position 1-based"
 
-    ^ position - ZeroPosition + 1
+    ^ self position0Based + 1
 !
 
 position1Based:index1Based
     "set the read (or write) position"
 
-    ((index1Based > (readLimit+1)) or:[index1Based < 1]) ifTrue: [^ self positionError:index1Based].
-    position := index1Based - 1 + ZeroPosition
+    self position0Based:(index1Based - 1)
 
     "
      |s|
@@ -1194,7 +1193,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.121 2003-02-25 10:14:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.122 2003-02-25 10:16:22 cg Exp $'
 ! !
 
 PositionableStream initialize!