--- a/FindFileApplication.st	Fri Sep 26 12:24:40 2014 +0200
+++ b/FindFileApplication.st	Tue Sep 30 11:24:43 2014 +0200
@@ -1694,12 +1694,13 @@
 
     dir := aDirectory asFilename.
 
-    self 
-        changeInformationTo:('%1 found - searching %2' 
-                                bindWith:resultList size
-                                with:((dir name) copyFrom:(self searchDirectoryHolder value asString size + 1))) 
-        toTab:false.
-
+    self window shown ifTrue:[
+        self 
+            changeInformationTo:('%1 found - searching %2' 
+                                    bindWith:resultList size
+                                    with:((dir name) copyFrom:(self searchDirectoryHolder value asString size + 1))) 
+            toTab:false.
+    ].
     list := self resultList.
 
     subDirs := OrderedCollection new.
@@ -1874,10 +1875,10 @@
 !FindFileApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.112 2014-02-26 15:10:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.113 2014-09-30 09:24:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.112 2014-02-26 15:10:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.113 2014-09-30 09:24:43 cg Exp $'
 ! !