--- a/CharacterWriteStream.st	Mon Jun 03 19:48:26 2013 +0200
+++ b/CharacterWriteStream.st	Mon Jun 03 19:49:37 2013 +0200
@@ -89,7 +89,7 @@
     bitsPerCharacter := aCharacterOrString bitsPerCharacter. 
     currentCharacterSize < bitsPerCharacter ifTrue:[
         sz := collection size.
-        (position + 1 - ZeroPosition) > sz ifTrue:[
+        (position + 1) > sz ifTrue:[
             newSz := sz + 1.
         ] ifFalse:[
             newSz := sz.
@@ -152,7 +152,7 @@
     if (__isNonNilObject(coll) && __isSmallInteger(p) && __isCharacter(aCharacter)) {
         pos = __intVal(p);
         /* make 1-based */
-        pos = pos + 1 - __intVal( @global(PositionableStream:ZeroPosition));
+        pos = pos + 1;
         wL = __INST(writeLimit);
 
         if ((wL == nil)
@@ -209,13 +209,13 @@
 
 
     (writeLimit isNil
-     or:[(position + 1 - ZeroPosition) <= writeLimit]) ifTrue:[
+     or:[(position + 1) <= writeLimit]) ifTrue:[
         currentCharacterSize < aCharacter bitsPerCharacter ifTrue:[
             self characterSizeChanged:aCharacter
         ].
-        ((position + 1 - ZeroPosition) > collection size) ifTrue:[self growCollection].
-        collection at:(position + 1 - ZeroPosition) put:aCharacter.
-        ((position + 1 - ZeroPosition) > readLimit) ifTrue:[readLimit := (position + 1 - ZeroPosition)].
+        ((position + 1) > collection size) ifTrue:[self growCollection].
+        collection at:(position + 1) put:aCharacter.
+        ((position + 1) > readLimit) ifTrue:[readLimit := (position + 1)].
         position := position + 1.
     ] ifFalse:[
         WriteError raiseErrorString:'write beyond writeLimit'
@@ -251,10 +251,10 @@
 !CharacterWriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterWriteStream.st,v 1.10 2012-12-18 21:35:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterWriteStream.st,v 1.11 2013-06-03 17:49:37 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterWriteStream.st,v 1.10 2012-12-18 21:35:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterWriteStream.st,v 1.11 2013-06-03 17:49:37 cg Exp $'
 ! !