--- a/FileBrowser.st	Sat Dec 18 11:57:21 1999 +0100
+++ b/FileBrowser.st	Mon Dec 20 11:55:07 1999 +0100
@@ -6438,7 +6438,7 @@
     "
 
     self withReadCursorDo:[
-        |files matchPattern list passDone f|
+        |files matchPattern list passDone f ignoreCase|
 
         self stopUpdateProcess.
 
@@ -6459,9 +6459,10 @@
         (matchPattern notNil and:[
          matchPattern isEmpty not and:[
          matchPattern ~= '*']]) ifTrue:[
+             ignoreCase := Filename isCaseSensitive not.
              files := files select:[:aName | 
                          ((currentDirectory construct:aName) isDirectory)
-                         or:[matchPattern compoundMatch:aName]
+                         or:[matchPattern compoundMatch:aName ignoreCase:ignoreCase]
                       ].
         ].
 
@@ -6871,7 +6872,7 @@
     "Modified: / 21.9.1995 / 11:40:23 / claus"
     "Modified: / 28.4.1997 / 22:30:30 / dq"
     "Modified: / 18.9.1997 / 18:28:30 / stefan"
-    "Modified: / 14.8.1998 / 17:59:06 / cg"
+    "Modified: / 16.12.1999 / 01:25:23 / cg"
 ! !
 
 !FileBrowser methodsFor:'queries'!
@@ -6911,5 +6912,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.355 1999-12-15 20:43:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.356 1999-12-20 10:55:07 cg Exp $'
 ! !