--- a/AbstractFileBrowser.st	Sun Nov 19 22:17:17 2017 +0100
+++ b/AbstractFileBrowser.st	Mon Nov 20 23:40:09 2017 +0100
@@ -4165,11 +4165,16 @@
                         pattern includesMatchCharacters ifFalse:[
                             "JV@2012-03-05: Add implict star at the beginning and at the end of pattern,
                              that's how most of the other applications behave - do what most users expect"
-                            pattern first == $* ifFalse:[pattern := '*' , pattern].
-                            pattern last  == $* ifFalse:[pattern := pattern , '*'].
+                            "/ pattern first == $* ifFalse:[pattern := '*' , pattern].
+                            "/ pattern last  == $* ifFalse:[pattern := pattern , '*'].
+                            [:name :baseName | baseName asLowercase includesString:pattern caseSensitive:caseSensitive]
+                        ] ifTrue:[
+                            pattern = '*' ifTrue:[
+                                [:name :baseName | true].
+                            ] ifFalse:[    
+                                [:name :baseName | pattern match:baseName caseSensitive:caseSensitive]
+                            ].
                         ].
-
-                       [:name :baseName | pattern match:baseName caseSensitive:caseSensitive]
                     ].
 
     notFilters := filterStrings
@@ -4214,6 +4219,7 @@
 
     "Modified: / 05-02-2012 / 01:42:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 27-03-2017 / 12:52:08 / stefan"
+    "Modified: / 20-11-2017 / 22:02:04 / cg"
 !
 
 shownFiles