--- a/FileBrowser.st	Mon Sep 02 13:53:47 2013 +0100
+++ b/FileBrowser.st	Wed Sep 04 11:33:19 2013 +0100
@@ -560,7 +560,7 @@
 
     bookmarks := self directoryBookmarks.
     bookmarks size > 0 ifTrue:[
-        menu addItem:(MenuItem labeled:'-').
+        menu addSeparator.
         bookmarks do:[:dirName |
             |pathName|
 
@@ -6996,7 +6996,7 @@
      ST/X users love this behavior ;-)
     "
 
-    |files matchPattern list passDone ignoreCase oldSelection newSelection times types|
+    |files matchPattern list passDone oldSelection newSelection times types|
 
     self withReadCursorDo:[
         self stopUpdateProcess.
@@ -7022,10 +7022,9 @@
         and:[ matchPattern notEmpty 
         and:[ matchPattern ~= '*']]) 
         ifTrue:[
-             ignoreCase := Filename isCaseSensitive not.
              files := files select:[:aName | 
                          ((currentDirectory construct:aName) isDirectory)
-                         or:[matchPattern compoundMatch:aName ignoreCase:ignoreCase]
+                         or:[matchPattern compoundMatch:aName caseSensitive:(Filename isCaseSensitive)]
                       ].
         ].
 
@@ -7512,11 +7511,11 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.650 2013-06-21 00:45:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.652 2013-08-31 19:28:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.650 2013-06-21 00:45:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.652 2013-08-31 19:28:57 cg Exp $'
 !
 
 version_HG