--- a/FindFileApplication.st	Tue May 31 06:46:17 2016 +0200
+++ b/FindFileApplication.st	Wed Jun 01 07:00:05 2016 +0200
@@ -1694,8 +1694,19 @@
     and:[theSingleDirectory notNil]]])
     ifTrue:[
         [
-            |cmd line f|
+            |updateInfo cmd line f|
 
+            updateInfo :=
+                [
+                    self 
+                        changeInformationTo:('%1 found' bindWith:resultList size) 
+                        toTab:false.
+                ].
+
+            self window shown ifTrue:[
+                updateInfo value.
+            ].
+            
             cmd := 'locate '.
             ignCaseInName ifTrue:[
                 "/ cmd := cmd , '--ignore-case '
@@ -1712,6 +1723,7 @@
                 f := line asFilename.
                 (doesFileMatch value:f) ifTrue:[
                     resultList add:line.
+                    updateInfo value.
                 ]
             ].
         ] ensure:[