--- a/DirectoryContentsBrowser.st	Thu Oct 09 17:14:15 2003 +0200
+++ b/DirectoryContentsBrowser.st	Thu Oct 09 17:34:12 2003 +0200
@@ -1600,7 +1600,9 @@
 
    "/ (key ~= #'Alt_L') ifTrue:[self halt.].
     key == #Accept ifTrue:[
-        self fileFileIn.
+        self withWaitCursorDo:[
+            self fileFileIn.
+        ].
         ^ true.
     ].
     key == #Paste ifTrue:[
@@ -3044,5 +3046,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.130 2003-10-08 09:36:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.131 2003-10-09 15:34:12 cg Exp $'
 ! !