--- a/Tools__ProjectBuilderAssistantApplication.st	Tue May 07 19:46:05 2013 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Tue May 07 19:54:33 2013 +0200
@@ -2129,10 +2129,14 @@
 
     selectedStartupClass notNil ifTrue:[
         "/ generate startupClass code
-        SmalltalkCodeGeneratorTool
-            compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name))
-            forClass:selectedProjectDefinition theMetaclass
-            inCategory:'description - startup'.
+        Class packageQuerySignal
+            answer:selectedProjectDefinition package
+            do:[
+                SmalltalkCodeGeneratorTool
+                    compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name))
+                    forClass:selectedProjectDefinition theMetaclass
+                    inCategory:'description - startup'.
+            ]
     ].
     self updateButtonEnableState.