--- a/Tools__ProjectBuilderAssistantApplication.st	Mon Oct 26 10:31:44 2009 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Mon Oct 26 11:13:20 2009 +0100
@@ -1516,8 +1516,12 @@
     ^ projectTypeHolder.
 !
 
+projectTypeIsLibrary
+    ^ self projectTypeHolder value == #libraryType
+!
+
 projectTypeIsNotLibrary
-    ^ self projectTypeHolder value ~~ #libraryType
+    ^ self projectTypeIsLibrary not
 !
 
 selectedApplicationIndexHolder
@@ -1723,7 +1727,7 @@
 canEnterContentsSelection
     ^ self hasProjectSelected 
     and:[ true "self hasApplicationSelected" 
-    and:[ self hasStartupClassSelected ]]
+    and:[ (self projectTypeIsLibrary or:[self hasStartupClassSelected]) ]]
 !
 
 canEnterDeploy