--- a/AbstractFileBrowser.st	Thu Feb 04 06:58:23 2016 +0100
+++ b/AbstractFileBrowser.st	Fri Feb 05 06:51:54 2016 +0100
@@ -4378,19 +4378,21 @@
     nameString := aString ? 'Execution Result'.
     appl changeTabTo:nameString.
 
-    process := [ 
-                    [aBlock value:stream] 
-                    ensure:[
-                        self backgroundProcesses remove:process ifAbsent:[].
-                        appl process value:nil.
-
-                        "/ close automatically, if there was no output.
+    process := 
+        [ 
+            [aBlock value:stream] 
+            ensure:[
+                self backgroundProcesses remove:process ifAbsent:[].
+                appl process value:nil.
+
+                "/ close automatically, if there was no output.
 "/                        appl resultStream contents isEmpty ifTrue:[
 "/                            appl doClose.
 "/                        ]
-                        stream nextPutLine:'Done.'
-                    ]
-               ] newProcess.
+                stream nextPutLine:'Done.'.
+                self enqueueMessage:#updateCurrentDirectory.
+            ]
+        ] newProcess.
     process priority:(Processor userBackgroundPriority).
     process name:nameString.
     self backgroundProcesses add:process.