--- a/DirectoryContentsBrowser.st	Mon Oct 14 13:48:35 2002 +0200
+++ b/DirectoryContentsBrowser.st	Mon Oct 14 13:52:28 2002 +0200
@@ -1629,7 +1629,7 @@
 
     | sel |
 
-    sel := self selectedItems collect:[:item | item isDirectory not].
+    sel := self selectedItems select:[:item | item isDirectory not].
     ^ sel collect:[:item| item fileName].
 !
 
@@ -2697,5 +2697,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.17 2002-10-14 11:48:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.18 2002-10-14 11:52:28 cg Exp $'
 ! !