--- a/FileBrowser.st	Mon Feb 24 13:13:04 2003 +0100
+++ b/FileBrowser.st	Mon Feb 24 18:00:47 2003 +0100
@@ -6206,7 +6206,7 @@
 
     (idx := aBuffer findString:'charset=') ~~ 0 ifTrue:[
         s := ReadStream on:aBuffer.
-        s position:idx + 8.
+        s position:idx - 1 + (PositionableStream zeroPosition) + 8.
         s skipSeparators.
         w := s upToSeparator.
         w notNil ifTrue:[
@@ -6218,7 +6218,7 @@
     ].
     (idx := aBuffer findString:'encoding') ~~ 0 ifTrue:[
         s := ReadStream on:aBuffer.
-        s position:idx + 8.
+        s position:idx - 1 + (PositionableStream zeroPosition) + 8.
         s skipSeparators.
         s peek == $: ifTrue:[
             s next.
@@ -7893,5 +7893,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.520 2003-02-21 10:23:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.521 2003-02-24 17:00:47 cg Exp $'
 ! !