--- a/Tools__NewSystemBrowser.st	Mon Dec 05 11:41:33 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Dec 05 13:01:20 2016 +0100
@@ -22527,12 +22527,17 @@
 hasPackagableApplicationSelected
     |cls|
 
-    ^ (cls := self theSingleSelectedClass) notNil
-    and:[ cls theNonMetaclass isProjectDefinition 
-          or:[ (cls inheritsFrom:StandaloneStartup)
-               and:[ cls isAbstract not ]
-             ]
-        ]
+    (cls := self theSingleSelectedClass) isNil ifTrue:[^ false].
+    cls := cls theNonMetaclass.
+
+    cls isProjectDefinition ifTrue:[        
+        ^ cls isFolderForProjectsDefinition not
+    ].
+    
+    (cls inheritsFrom:StandaloneStartup) ifTrue:[
+        ^ cls isAbstract not
+    ].
+    ^ false.
 !
 
 hasPackagableApplicationSelectedHolder