--- a/FileSelectionList.st	Fri Mar 01 14:55:37 2019 +0100
+++ b/FileSelectionList.st	Fri Mar 01 15:44:18 2019 +0100
@@ -1020,7 +1020,7 @@
                     ignoreFiles ifFalse:[
                         matching := true.
 
-                        (pattern size > 0) ifTrue:[ 
+                        (pattern size ~~ 0) ifTrue:[ 
                             pattern ~= '*' ifTrue:[
                                 matching := pattern compoundMatch:name caseSensitive:ignoreCase not
                             ]
@@ -1041,8 +1041,9 @@
         self list:newList.
     ].
 
-    "Modified: / 18.9.1997 / 23:43:52 / stefan"
-    "Modified: / 16.12.1999 / 01:23:41 / cg"
+    "Modified: / 18-09-1997 / 23:43:52 / stefan"
+    "Modified: / 16-12-1999 / 01:23:41 / cg"
+    "Modified: / 01-03-2019 / 15:43:30 / Claus Gittinger"
 !
 
 updateListWithoutScrolling