--- a/Tools__ProjectBuilderAssistantApplication.st	Fri Mar 25 19:36:53 2016 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Fri Mar 25 22:51:02 2016 +0100
@@ -3504,11 +3504,12 @@
 updateListOfNewProjectsName
     |loadedProjectIDsWithoutProjectDefinition|
 
-    loadedProjectIDsWithoutProjectDefinition := Smalltalk allLoadedProjectIDs 
-                                                            select:[:eachProjectID | 
-                                                                eachProjectID ~= PackageId noProjectID 
-                                                                and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ].
-                                                            ].
+    loadedProjectIDsWithoutProjectDefinition := 
+        Smalltalk allLoadedPackageIDs 
+            select:[:eachPackageID | 
+                eachPackageID ~= PackageId noProjectID 
+                and:[ (ProjectDefinition definitionClassForPackage: eachPackageID) isNil ].
+            ].
     loadedProjectIDsWithoutProjectDefinition := loadedProjectIDsWithoutProjectDefinition asOrderedCollection.
     loadedProjectIDsWithoutProjectDefinition 
         addFirst:(UserPreferences current usersModuleName "OperatingSystem getLoginName",':','demos','/','demo1').