--- a/DirectoryContentsBrowser.st	Tue Nov 13 15:07:13 2012 +0100
+++ b/DirectoryContentsBrowser.st	Wed Nov 21 08:42:59 2012 +0100
@@ -2497,6 +2497,7 @@
                         select:[:eachItem |
                             |isDir showIt|
 
+                            filterChangeFlag ifTrue:[^ nil].
                             isDir := eachItem isDirectory.
                             isDir ifFalse:[noOfFiles := noOfFiles + 1].
 
@@ -2515,13 +2516,15 @@
     self noOfShownFiles:noOfShownFiles noOfFiles:noOfFiles.
     ^ newItemList
 
-    "Modified: / 12-07-2012 / 11:56:59 / cg"
+    "Modified: / 20-11-2012 / 14:28:33 / cg"
 !
 
 filterChanged
     |newFilteredItems|
 
     newFilteredItems := self evaluateFilter:self allItems copy.
+    filterChangeFlag ifTrue:[^ self].
+
     newFilteredItems ~= filteredItems ifTrue:[
         filteredItems := newFilteredItems.
         filteredItems := self sortBlockHolder value sortItemList:filteredItems.
@@ -2530,6 +2533,8 @@
             for:[ self setBrowserItemList:filteredItems ]
             arguments:#().
     ].
+
+    "Modified: / 20-11-2012 / 14:28:54 / cg"
 !
 
 readDirectoryItems
@@ -3412,9 +3417,9 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.248 2012-07-12 10:17:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.249 2012-11-21 07:42:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.248 2012-07-12 10:17:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.249 2012-11-21 07:42:59 cg Exp $'
 ! !