--- a/Tools__ProjectBuilderAssistantApplication.st	Wed Aug 03 10:59:52 2011 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Sat Aug 06 15:48:10 2011 +0200
@@ -1429,8 +1429,7 @@
 
         self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass).
 
-        projectClasses := projectDefinitionClass allClassNames 
-                                collect:[:nm |Smalltalk classNamed:nm].
+        projectClasses := projectDefinitionClass allClasses.
 
 "/    projectDefinitionClass isGUIApplication ifTrue:[
 "/        "/ see if it has an AppModel class
@@ -1448,6 +1447,8 @@
 "/    ].
 
     ].
+
+    "Modified: / 06-08-2011 / 15:48:01 / cg"
 !
 
 createNewStartupClass