--- a/WriteStream.st	Tue Feb 25 10:05:53 2003 +0100
+++ b/WriteStream.st	Tue Feb 25 11:15:21 2003 +0100
@@ -189,14 +189,11 @@
 
 !WriteStream methodsFor:'positioning'!
 
-position:index
+position0Based:index0Based
     "redefined to allow positioning past the readLimit"
 
-    |index1Based|
-
-    index1Based := index - ZeroPosition + 1.
-    ((index1Based > (collection size + 1)) or:[index1Based < ZeroPosition]) ifTrue: [^ self positionError].
-    position := index
+    ((index0Based > collection size) or:[index0Based < 0]) ifTrue: [^ self positionError].
+    position := index0Based + ZeroPosition
 ! !
 
 !WriteStream methodsFor:'private'!
@@ -505,5 +502,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.49 2003-02-25 09:05:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.50 2003-02-25 10:15:21 cg Exp $'
 ! !