--- a/Tools__ProjectBuilderAssistantApplication.st	Sat Jul 21 18:58:50 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Mon Aug 06 16:58:29 2012 +0200
@@ -1525,7 +1525,7 @@
     ].
 
     self withWaitCursorDo:[
-        projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value).
+        projectDefinitionType := self projectType. "/ ProjectDefinition perform:(self projectTypeHolder value).
 
         projectDefinitionClass := ProjectDefinition
                                     definitionClassForPackage:newProjectID
@@ -1557,7 +1557,7 @@
 
     ].
 
-    "Modified: / 06-08-2011 / 15:48:01 / cg"
+    "Modified: / 06-08-2012 / 16:55:54 / cg"
 !
 
 createNewStartupClass