--- a/FileBrowser.st	Fri Nov 09 09:17:08 2001 +0100
+++ b/FileBrowser.st	Fri Nov 09 09:18:02 2001 +0100
@@ -6596,10 +6596,10 @@
         fontsEncoding := subView font encoding.
         pref := self preferredFontEncodingFor:guess.
 
-        ok := pref match:fontsEncoding.
+        ok := pref asLowercase match:fontsEncoding asLowercase.
         ok ifFalse:[
             pref = 'iso8859*' ifTrue:[
-                ok := 'ascii*' match:fontsEncoding
+                ok := 'ascii*' match:fontsEncoding asLowercase
             ]
         ].
         ok ifTrue:[
@@ -6696,7 +6696,7 @@
 
     "Created: / 19.6.1996 / 09:39:52 / cg"
     "Modified: / 18.9.1997 / 17:10:20 / stefan"
-    "Modified: / 18.5.1999 / 15:51:18 / cg"
+    "Modified: / 8.11.2001 / 23:58:49 / cg"
 !
 
 writeFile:fileName text:someText encoding:encoding
@@ -7410,5 +7410,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.430 2001-10-26 08:15:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.431 2001-11-09 08:18:02 cg Exp $'
 ! !