--- a/WriteStream.st	Mon Aug 19 23:30:27 2013 +0100
+++ b/WriteStream.st	Tue Aug 20 00:07:19 2013 +0100
@@ -196,7 +196,7 @@
 
 !WriteStream methodsFor:'positioning'!
 
-position0Based:index0Based
+position:index0Based
     "redefined to allow positioning past the readLimit"
 
     ((index0Based > collection size) or:[index0Based < 0]) ifTrue: [^ self positionError].
@@ -295,7 +295,7 @@
 isEmpty
     "return true, if the contents of the stream is empty"
 
-    ^ self position0Based == 0
+    ^ self position == 0
 
     "Created: 14.10.1997 / 20:44:37 / cg"
 ! !
@@ -649,10 +649,10 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.79 2013-07-06 13:30:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.80 2013-08-10 11:30:31 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.79 2013-07-06 13:30:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.80 2013-08-10 11:30:31 stefan Exp $'
 ! !