--- a/DirectoryView.st	Thu Sep 10 16:51:59 1998 +0200
+++ b/DirectoryView.st	Sat Sep 12 18:11:24 1998 +0200
@@ -376,7 +376,9 @@
 
     allFiles := Set new.
     foundFiles := Set new.
-    filterList := self listOfFileFilters value.
+    "/ filterList := self listOfFileFilters value.
+    filterList := self selectedFileFilter asCollectionOfSubstringsSeparatedBy:$;.
+    filterList := filterList collect:[:pattern | pattern withoutSeparators].
 
     Cursor wait showWhile: 
     [ 
@@ -392,6 +394,7 @@
             dir filesAndBasenamesDo:[:file :name|      
                 allFiles add: name
             ].
+
             filterList do:[:filter|
                 foundFiles addAll:(allFiles select:[:name | filter match:name]).
             ].
@@ -402,7 +405,7 @@
         ]
     ]
 
-    "Modified: / 18.5.1998 / 13:02:47 / cg"
+    "Modified: / 12.9.1998 / 17:25:25 / cg"
 !
 
 readMonitoringDirectory