--- a/AbstractFileBrowser.st	Mon Oct 25 13:26:19 2004 +0200
+++ b/AbstractFileBrowser.st	Mon Oct 25 13:27:23 2004 +0200
@@ -4965,7 +4965,7 @@
 
     [
         self withActivityIndicationDo:[
-            self allItemsOfCurrentDirectory do:[:fileItem |
+            self allItemsOfCurrentDirectory copy do:[:fileItem |
                 (fileItem hasMimeType and:[fileItem mimeType isSmalltalkSource]) ifTrue:[
                         
                     self notify:('Install as autoloaded:', fileItem baseName).
@@ -6570,5 +6570,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.269 2004-10-19 17:09:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.270 2004-10-25 11:27:23 penk Exp $'
 ! !