--- a/Tools_ProjectList.st	Tue Nov 28 15:47:17 2006 +0100
+++ b/Tools_ProjectList.st	Tue Nov 28 15:47:46 2006 +0100
@@ -564,11 +564,12 @@
 
                 (allProjects includes:package) ifFalse:[
                     allProjects add:package.
-
-                    p := package asPackageId.
-                    [(parent := p parentPackage) notNil] whileTrue:[
-                        allProjects add:parent asSymbol.
-                        p := parent.
+                    package ~= Project noProjectID ifTrue:[
+                        p := package asPackageId.
+                        [(parent := p parentPackage) notNil] whileTrue:[
+                            allProjects add:parent asSymbol.
+                            p := parent.
+                        ].
                     ].
                 ].
             ].
@@ -624,7 +625,7 @@
     ].
     ^ allProjects asOrderedCollection.
 
-    "Modified: / 10-11-2006 / 17:14:48 / cg"
+    "Modified: / 28-11-2006 / 14:41:56 / cg"
 !
 
 defaultSlaveModeValue
@@ -808,5 +809,5 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.29 2006-11-20 11:34:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.30 2006-11-28 14:47:46 cg Exp $'
 ! !