--- a/AbstractFileBrowser.st	Thu Mar 05 08:32:59 2015 +0100
+++ b/AbstractFileBrowser.st	Thu Mar 05 13:08:41 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -7523,29 +7525,28 @@
     "install all classes found here (and in subdirs if aBoolean is true) as autoloaded classes"
 
     [
-        LoadInProgressQuery 
-            answerNotifyLoadingDo:[
-                |installAction|
-
-                installAction := 
-                    [:fn |
-                        (fn suffix = 'st') ifTrue:[
-                            self notify:('Install as autoloaded: ', fn baseName).
-                            self installAsAutoloaded:fn.
-                        ]
+        LoadInProgressQuery answerNotifyLoadingDo:[
+            |installAction|
+
+            installAction := 
+                [:fn |
+                    (fn suffix = 'st') ifTrue:[
+                        self notify:('Install as autoloaded: ', fn baseName).
+                        self installAsAutoloaded:fn.
+                    ]
+                ].
+
+            self withActivityIndicationDo:[
+                self currentSelectedDirectories do:[:dir|
+                    aBoolean ifTrue:[
+                        dir recursiveDirectoryContentsAsFilenamesDo:installAction
+                    ] ifFalse:[
+                        dir directoryContentsAsFilenamesDo:installAction
                     ].
-
-                self withActivityIndicationDo:[
-                    self currentSelectedDirectories do:[:dir|
-                        aBoolean ifTrue:[
-                            dir recursiveDirectoryContentsAsFilenamesDo:installAction
-                        ] ifFalse:[
-                            dir directoryContentsAsFilenamesDo:installAction
-                        ].
-                    ].
-                    self notify:nil.
                 ].
-            ]
+                self notify:nil.
+            ].
+        ]
     ] fork.
 !
 
@@ -9581,10 +9582,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.586 2015-02-21 00:19:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.587 2015-03-05 12:08:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.586 2015-02-21 00:19:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.587 2015-03-05 12:08:41 cg Exp $'
 ! !