--- a/AbstractLauncherApplication.st	Fri Nov 16 11:53:24 2001 +0100
+++ b/AbstractLauncherApplication.st	Fri Nov 16 11:55:32 2001 +0100
@@ -3054,18 +3054,19 @@
             "/ refetch resources ...
             resources := requestor class classResources.
             fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
+            fontPref := fontPref asLowercase.    
             Smalltalk language:oldLanguage.
 
             switch := true.
             enc := MenuView defaultFont encoding.
-            (fontPref match:enc) ifFalse:[
+            (fontPref match:enc asLowercase) ifFalse:[
                 "/ look if there is one at all.
                 screen := Screen current.
-                matchingFonts := screen listOfAvailableFonts select:[:f | fontPref match:f encoding].
+                matchingFonts := screen listOfAvailableFonts select:[:f | fontPref match:f encoding asLowercase].
                 matchingFonts size == 0 ifTrue:[
                     "/ flush and try again - just in case, the font path has changed.
                     screen flushListOfAvailableFonts.
-                    matchingFonts := screen listOfAvailableFonts select:[:f | fontPref match:f encoding].
+                    matchingFonts := screen listOfAvailableFonts select:[:f | fontPref match:f encoding asLowercase].
                 ].
                 matchingFonts size == 0 ifTrue:[
                     (Dialog 
@@ -3111,7 +3112,7 @@
     box destroy
 
     "Modified: / 9.9.1996 / 22:43:27 / stefan"
-    "Modified: / 4.8.1998 / 16:54:32 / cg"
+    "Modified: / 16.11.2001 / 11:51:35 / cg"
 !
 
 memorySettingsFor:requestor
@@ -6315,5 +6316,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.178 2001-11-15 14:44:31 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.179 2001-11-16 10:55:32 cg Exp $'
 ! !