--- a/FindFileApplication.st	Thu May 13 17:27:02 2004 +0200
+++ b/FindFileApplication.st	Thu May 13 17:48:46 2004 +0200
@@ -1349,6 +1349,7 @@
     |dir subDirs list directoryContents|
 
     dir := aDirectory asFilename.
+
     self changeInformationTo:'Find File ' , '- searching .' , ((dir name) copyFrom:(self searchDirectoryHolder value asString size + 1)) toTab:false.
 
     list := self resultList.
@@ -1461,5 +1462,5 @@
 !FindFileApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.45 2004-04-01 12:27:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.46 2004-05-13 15:48:46 cg Exp $'
 ! !