--- a/FileSelectionTree.st	Tue May 18 14:19:19 1999 +0200
+++ b/FileSelectionTree.st	Tue May 18 21:11:46 1999 +0200
@@ -631,11 +631,17 @@
     p1 :=  Filename components:p1.
     p2 := (Filename components:p2) copyFrom:(p1 size).
 
+    Filename isCaseSensitive ifFalse:[
+        ^ model 
+            detectItem:[:aNode :name | aNode name asLowercase = name asLowercase] 
+            arguments:p2.
+    ].
+
     ^ model 
         detectItem:[:aNode :name | aNode name = name ] 
         arguments:p2.
 
-    "Modified: / 24.9.1998 / 18:22:44 / cg"
+    "Modified: / 18.5.1999 / 19:30:19 / cg"
 !
 
 makeLegalFilename:aFile
@@ -735,5 +741,5 @@
 !FileSelectionTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.23 1999-03-19 21:22:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.24 1999-05-18 19:11:46 cg Exp $'
 ! !