--- a/Tools__NewSystemBrowser.st	Wed Jul 11 12:07:57 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Jul 12 21:45:02 2018 +0200
@@ -23264,8 +23264,10 @@
     "Created: / 4.2.2000 / 22:09:02 / cg"
 !
 
-hasPseudoProjectChangedSelected
-    ^ self selectedProjects value includes:(PackageId noProjectID)
+hasPseudoProjectChangedSelected    
+    ^ (self selectedProjects value ? #()) includes:(PackageId noProjectID)
+
+    "Modified: / 12-07-2018 / 21:44:09 / Claus Gittinger"
 !
 
 hasPseudoProjectChangedSelectedHolder
@@ -23327,9 +23329,12 @@
 !
 
 hasRenamableProjectSelected
-    ^ self selectedProjects value contains:[:p |
+    ^ (self selectedProjects value ? #())
+        contains:[:p |
             (p ~= PackageId noProjectID)
             and:[ (BrowserList isPseudoProject:p) not ]]
+
+    "Modified: / 12-07-2018 / 21:44:39 / Claus Gittinger"
 !
 
 hasRenamableProjectSelectedHolder
@@ -61164,6 +61169,7 @@
     ^ selectorCompletion
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass