# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1531424702 -7200
# Node ID 3970782ebc21da5f7915c19c3d909b9a491b8309
# Parent  4bf515143c81fa8cdd9f85ec119ce2f2d1843ebe
#BUGFIX by cg
class: Tools::NewSystemBrowser
changed:
	#hasPseudoProjectChangedSelected
	#hasRenamableProjectSelected

diff -r 4bf515143c81 -r 3970782ebc21 Tools__NewSystemBrowser.st
--- 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