--- a/FileBrowser.st	Tue Jun 04 12:14:08 2013 +0200
+++ b/FileBrowser.st	Tue Jun 04 12:15:39 2013 +0200
@@ -2516,7 +2516,7 @@
 
         dir := currentDirectory asFilename.
         self label:myName , '- gathering file names ...'.
-        fileNames := dir recursiveDirectoryContentsAsFilenames select:[:fn | fn isDirectory not].
+        fileNames := dir recursiveDirectoryContentsAsFilenames reject:[:fn | fn isDirectory ].
 
         self label:myName , '- gathering sizes ...'.
         infoDir := Dictionary new.
@@ -2616,7 +2616,7 @@
         result := Dictionary new.
 
         dir := currentDirectory asFilename.
-        fileNames := dir directoryContentsAsFilenames select:[:fn | fn isDirectory not].
+        fileNames := dir directoryContentsAsFilenames reject:[:fn | fn isDirectory ].
 
         infoDir := Dictionary new.
         fileNames do:[:fn |
@@ -7505,10 +7505,10 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.647 2013-04-27 13:01:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.648 2013-06-04 10:15:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.647 2013-04-27 13:01:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.648 2013-06-04 10:15:39 cg Exp $'
 ! !