--- a/Tools_ProjectList.st	Mon Oct 12 20:08:55 2009 +0200
+++ b/Tools_ProjectList.st	Mon Oct 12 20:09:26 2009 +0200
@@ -416,7 +416,7 @@
     (objects conform:[:something | something isFilename]) ifTrue:[
         |p|
 
-        p := (self selectedProjects value ? #()) firstIfEmpty:Project noProjectID.
+        p := (self selectedProjects value ? #()) firstIfEmpty:PackageId noProjectID.
 
         Class packageQuerySignal answer:p
         do:[
@@ -602,7 +602,7 @@
 
                 (allProjects includes:package) ifFalse:[
                     allProjects add:package.
-                    (package ~= Project noProjectID 
+                    (package ~= PackageId noProjectID 
                     and:[package ~= #private]) ifTrue:[
                         p := package asPackageId.
                         [(parent := p parentPackage) notNil] whileTrue:[
@@ -629,7 +629,7 @@
                         cls := cls topOwningClass
                     ].
 
-                    classPackage := cls package ? (Project noProjectID).
+                    classPackage := cls package ? (PackageId noProjectID).
                     classPackage size > 0 ifTrue:[
                         addWithAllParentPackages value:classPackage asSymbol.
                     ] ifFalse:[
@@ -760,7 +760,7 @@
         ] ifFalse:[
             thisC := this asCollectionOfSubstringsSeparatedByAny:':/'.
             thisC isEmpty ifTrue:[
-                thisC := Array with:(Project noProjectID).
+                thisC := Array with:(PackageId noProjectID).
             ].
 
             [
@@ -870,5 +870,9 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.40 2009-09-22 08:23:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.41 2009-10-12 18:09:26 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.41 2009-10-12 18:09:26 cg Exp $'
 ! !