--- a/AbstractFileBrowser.st	Tue Sep 17 11:25:54 2013 +0100
+++ b/AbstractFileBrowser.st	Thu Sep 19 10:20:29 2013 +0100
@@ -4295,7 +4295,7 @@
     selection := self currentSelectedObjects.
     self class currentSelection:selection.
 
-    selectionNotEmpty := selection notEmpty.
+    selectionNotEmpty := selection notEmptyOrNil.
     self hasSelection value:selectionNotEmpty.
     self hasFileSelection value:(selectionNotEmpty and:[self firstSelectedFile notNil]).
 
@@ -9307,11 +9307,11 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.537 2013-08-31 19:25:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.538 2013-09-06 16:03:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.537 2013-08-31 19:25:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.538 2013-09-06 16:03:14 cg Exp $'
 !
 
 version_HG