--- a/AbstractFileBrowser.st	Fri Mar 24 09:37:52 2017 +0100
+++ b/AbstractFileBrowser.st	Mon Mar 27 13:18:34 2017 +0200
@@ -4023,11 +4023,11 @@
     "return a two-arg filterblock on the file's path- and base-name. This block should return true for files
      to be shown"
 
-    | filterString filterStrings filters notFilters showHidden filterBlock ignoreCase|
+    | filterString filterStrings filters notFilters showHidden filterBlock caseSensitive|
 
     filterString := self filterModel value.
     filterString = '' ifTrue:[filterString := '*'].
-    ignoreCase := "ignoreCaseInPattern ? "(Filename isCaseSensitive not).
+    caseSensitive := "ignoreCaseInPattern ?" Filename isCaseSensitive.
 
     filterStrings := filterString asCollectionOfSubstringsSeparatedBy:$;.
     filterStrings := filterStrings
@@ -4047,7 +4047,7 @@
                             pattern last  == $* ifFalse:[pattern := pattern , '*'].
                         ].
 
-                       [:name :baseName | pattern match:baseName ignoreCase:ignoreCase]
+                       [:name :baseName | pattern match:baseName caseSensitive:caseSensitive]
                     ].
 
     notFilters := filterStrings
@@ -4058,7 +4058,7 @@
 
                         pattern := eachPattern withoutSeparators.
                         pattern := (pattern copyFrom:2) withoutSeparators.
-                        [:name :baseName | pattern match:baseName caseSensitive:ignoreCase not]
+                        [:name :baseName | pattern match:baseName caseSensitive:caseSensitive]
                     ].
 
 
@@ -4091,6 +4091,7 @@
                 name isHidden not and:[filterBlock value:name value:baseName]].
 
     "Modified: / 05-02-2012 / 01:42:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 27-03-2017 / 12:52:08 / stefan"
 !
 
 shownFiles