--- a/Launcher.st	Mon Sep 15 23:25:06 1997 +0200
+++ b/Launcher.st	Tue Sep 16 06:10:00 1997 +0200
@@ -2900,10 +2900,13 @@
         self warn:'no styles found (missing ''resources'' directory)'.
         ^ self
     ].
-    dir := FileDirectory directoryNamed:resourceDir.
+    dir := resourceDir asFilename directoryContents.
 
     listOfStyles := dir select:[:aFileName | aFileName asFilename hasSuffix:'style'].
     listOfStyles := listOfStyles collect:[:aFileName | aFileName asFilename withoutSuffix name].
+    Filename isCaseSensitive ifFalse:[
+	listOfStyles := listOfStyles collect:[:aStyleName | aStyleName asLowercase].
+    ].
     listOfStyles sort.
 
 "/ old code: used a standard ListSelectionBox
@@ -4827,5 +4830,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.293 1997-09-15 21:25:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.294 1997-09-16 04:10:00 cg Exp $'
 ! !