--- a/DirectoryContentsBrowser.st	Tue Jun 04 12:11:52 2013 +0200
+++ b/DirectoryContentsBrowser.st	Tue Jun 04 12:14:08 2013 +0200
@@ -1912,7 +1912,7 @@
 
     |currentSelection|
 
-    ((currentSelection := self currentSelectedObjects select:[:file| file isDirectory not]) notEmpty) ifTrue:[
+    ((currentSelection := self currentSelectedObjects reject:[:file| file isDirectory]) notEmpty) ifTrue:[
         self selectFiles:currentSelection.
     ].
 
@@ -1964,7 +1964,7 @@
 
     | sel |
 
-    sel := self selectedItemsWithoutDotDotDirectory select:[:item | item isDirectory not].
+    sel := self selectedItemsWithoutDotDotDirectory reject:[:item | item isDirectory].
     ^ sel
 !
 
@@ -3424,10 +3424,10 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.255 2013-04-01 20:25:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.256 2013-06-04 10:14:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.255 2013-04-01 20:25:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.256 2013-06-04 10:14:08 cg Exp $'
 ! !