--- a/Tools__ProjectBuilderAssistantApplication.st	Tue Nov 03 13:46:50 2009 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Tue Nov 03 20:20:06 2009 +0100
@@ -1165,21 +1165,22 @@
         ^ self
     ].
 
-    projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value).
+    self withWaitCursorDo:[
+        projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value).
 
-    projectDefinitionClass := ProjectDefinition
-                                definitionClassForPackage:newProjectID
-                                projectType: projectDefinitionType
-                                createIfAbsent:true.
+        projectDefinitionClass := ProjectDefinition
+                                    definitionClassForPackage:newProjectID
+                                    projectType: projectDefinitionType
+                                    createIfAbsent:true.
 
-    projectDefinitionClass compileDescriptionMethods.
-    self updateListOfMatchingProjects.
-    self updateListOfNewProjectsName.
+        projectDefinitionClass compileDescriptionMethods.
+        self updateListOfMatchingProjects.
+        self updateListOfNewProjectsName.
 
-    self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass).
+        self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass).
 
-    projectClasses := projectDefinitionClass allClassNames 
-                            collect:[:nm |Smalltalk classNamed:nm].
+        projectClasses := projectDefinitionClass allClassNames 
+                                collect:[:nm |Smalltalk classNamed:nm].
 
 "/    projectDefinitionClass isGUIApplication ifTrue:[
 "/        "/ see if it has an AppModel class
@@ -1195,6 +1196,8 @@
 "/        (projectClasses contains:[:cls | cls isStartable]) ifFalse:[
 "/        ].
 "/    ].
+
+    ].
 !
 
 createNewStartupClass