--- a/CharacterEncoder.st	Sat Aug 10 13:11:14 2013 +0200
+++ b/CharacterEncoder.st	Sat Aug 10 13:13:37 2013 +0200
@@ -1105,7 +1105,7 @@
 
         (idx := lcBuffer findString:keyWord) ~~ 0 ifTrue:[
             s := ReadStream on:buffer.
-            s position1Based:idx.
+            s position:idx-1.
             s skip:keyWord size.
             s skipSeparators. 
 
@@ -1677,11 +1677,11 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.122 2013-03-20 10:37:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.123 2013-08-10 11:13:37 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.122 2013-03-20 10:37:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.123 2013-08-10 11:13:37 stefan Exp $'
 ! !