--- a/AbstractFileBrowser.st	Mon Aug 13 13:12:18 2012 +0200
+++ b/AbstractFileBrowser.st	Mon Aug 13 16:19:33 2012 +0200
@@ -8440,8 +8440,7 @@
 !
 
 directoriesForFiles:aFileCol
-
-    ^ (aFileCol collect:[:file| self getDirWithoutFileName:file]) asSet.
+     ^ aFileCol collect:[:file| self getDirWithoutFileName:file] as:Set.
 !
 
 fileListIsEmpty
@@ -8552,9 +8551,8 @@
 !
 
 parentDirectoriesOfCurrentFiles
-
-    ^ (self currentSelectedObjects 
-        collect:[:file | file directory]) asSet
+    ^ self currentSelectedObjects 
+        collect:[:file | file directory] as:Set
 
     "Modified: / 04-12-2006 / 13:15:21 / cg"
 !
@@ -9104,9 +9102,9 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.498 2012-07-28 07:07:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.499 2012-08-13 14:19:33 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.498 2012-07-28 07:07:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.499 2012-08-13 14:19:33 stefan Exp $'
 ! !