--- a/AbstractFileBrowser.st	Sat Aug 31 21:24:28 2013 +0200
+++ b/AbstractFileBrowser.st	Sat Aug 31 21:25:38 2013 +0200
@@ -3823,7 +3823,7 @@
                         |pattern|
 
                         pattern := eachPattern withoutSeparators.
-                        [:name :baseName | pattern match:baseName ignoreCase:ignoreCase]
+                        [:name :baseName | pattern match:baseName caseSensitive:ignoreCase not]
                     ].
 
     notFilters := filterStrings
@@ -3834,7 +3834,7 @@
 
                         pattern := eachPattern withoutSeparators.
                         pattern := (pattern copyFrom:2) withoutSeparators.
-                        [:name :baseName | pattern match:baseName ignoreCase:ignoreCase]
+                        [:name :baseName | pattern match:baseName caseSensitive:ignoreCase not]
                     ].
 
 
@@ -3872,7 +3872,6 @@
     ^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue]
 ! !
 
-
 !AbstractFileBrowser methodsFor:'aspects-history'!
 
 dirHistory
@@ -5748,7 +5747,6 @@
     ]
 ! !
 
-
 !AbstractFileBrowser methodsFor:'menu actions-scm-mercurial'!
 
 mercurialAdd
@@ -8264,8 +8262,6 @@
     ^ false
 ! !
 
-
-
 !AbstractFileBrowser methodsFor:'presentation'!
 
 getModeString:modeBits
@@ -9200,10 +9196,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.536 2013-08-01 15:09:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.537 2013-08-31 19:25:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.536 2013-08-01 15:09:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.537 2013-08-31 19:25:38 cg Exp $'
 ! !