--- a/FileBrowser.st	Mon Mar 08 20:05:00 2004 +0100
+++ b/FileBrowser.st	Tue Mar 09 00:12:58 2004 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
@@ -1500,20 +1498,22 @@
             s position1Based:idx.
             s skip:keyWord size.
            s skipSeparators. 
-           ['=:#' includes:s peek] whileTrue:[
-                s next.
+           ('=:#' includes:s peek) ifTrue:[
+               ['=:#' includes:s peek] whileTrue:[
+                    s next.
+                    s skipSeparators. 
+                ].
                 s skipSeparators. 
-            ].
-            s skipSeparators. 
-            w := s upToSeparator.
-            w notNil ifTrue:[
-                enc := withoutQuotes value asSymbolIfInterned.
-                enc notNil ifTrue:[
-                    (CharacterEncoder encoderFor:enc ifAbsent:nil) notNil ifTrue:[
-                        ^ enc
+                w := s upToSeparator.
+                w notNil ifTrue:[
+                    enc := withoutQuotes value asSymbolIfInterned.
+                    enc notNil ifTrue:[
+                        (CharacterEncoder encoderFor:enc ifAbsent:nil) notNil ifTrue:[
+                            ^ enc
+                        ].
                     ].
+                    Transcript showCR:'Unknown encoding: ' , withoutQuotes value.
                 ].
-                Transcript showCR:'Unknown encoding: ' , withoutQuotes value.
             ].
         ].
     ].
@@ -7501,5 +7501,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.584 2004-03-05 12:46:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.585 2004-03-08 23:12:58 cg Exp $'
 ! !