--- a/ProjectDefinition.st	Fri Mar 25 06:29:08 2016 +0000
+++ b/ProjectDefinition.st	Sat Mar 26 07:56:10 2016 +0000
@@ -6001,7 +6001,7 @@
     myParentPackage := myPackage parentPackage.
     myParentPackage isNil ifTrue:[^ #() ].
 
-    ^ Smalltalk allProjectIDs
+    ^ Smalltalk allPackageIDs
         select:[:projectID |
             |thisPackage|
             thisPackage := projectID asPackageId.
@@ -6025,7 +6025,7 @@
     |myPackage|
 
     myPackage := self package.
-    ^ Smalltalk allProjectIDs
+    ^ Smalltalk allPackageIDs
         select:[:projectID |
             projectID ~= PackageId noProjectID
             and:[ (projectID asPackageId parentPackage) = myPackage ]].