--- a/DirectoryContentsBrowser.st	Mon Apr 07 18:41:57 2003 +0200
+++ b/DirectoryContentsBrowser.st	Mon Apr 07 18:42:13 2003 +0200
@@ -1029,7 +1029,7 @@
     filterBox isNil ifTrue:[^ self ].
     noOfAddedFiles ~= noOfFiles ifTrue:[
         clr := Color red lightened lightened lightened.
-        [ filterBox flash] fork.                 
+        [ View drawingOnClosedDrawableSignal catch:[ filterBox flash ] ] fork.                 
     ] ifFalse:[
         clr := self filterBackgroundColor value.
     ].
@@ -2810,5 +2810,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.100 2003-04-06 14:06:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.101 2003-04-07 16:42:13 cg Exp $'
 ! !