--- a/Tools__NewSystemBrowser.st	Wed Aug 07 13:07:11 2013 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Aug 08 10:48:08 2013 +0100
@@ -21780,11 +21780,11 @@
 !
 
 hasProtocolSelected
-    ^ (self selectedClasses value anySatisfy:[:cls | cls supportsMethodCategories]) and:[
+    ^ ((self selectedClasses value ? #()) anySatisfy:[:cls | cls supportsMethodCategories]) and:[
     self selectedProtocols value size > 0]
 
     "Created: / 04-02-2000 / 22:07:55 / cg"
-    "Modified: / 07-08-2013 / 03:33:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-08-2013 / 00:16:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 hasProtocolSelectedAndCanFileOutSIFHolder