--- a/DirectoryTreeBrowser.st	Fri Feb 03 12:44:37 2006 +0100
+++ b/DirectoryTreeBrowser.st	Fri Feb 03 12:45:35 2006 +0100
@@ -783,7 +783,9 @@
     file notNil ifTrue:[
         file := Filename named:(file asString).
         file isDirectory ifTrue:[
-            list directory:file
+            self withWaitCursorDo:[
+                list directory:file
+            ]
         ]
     ].
     self rootHolder value:(list directory asString) withoutNotifying:self.
@@ -1327,5 +1329,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.96 2006-01-30 08:33:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.97 2006-02-03 11:45:35 cg Exp $'
 ! !