--- a/Tools_ProjectList.st	Fri Sep 22 16:42:59 2006 +0200
+++ b/Tools_ProjectList.st	Fri Sep 22 16:43:41 2006 +0200
@@ -656,16 +656,14 @@
         )
     "
 
-    |stack projectsWithExtensions projectsWithChangedCode classesInCangeSet packagesInChangeSet projectNameList|
+    |stack projectsWithExtensions projectsWithChangedCode packagesInChangeSet projectNameList|
 
     stack := OrderedCollection new.
 
     projectsWithExtensions := Set new.
     projectsWithChangedCode := Set new.
 
-    classesInCangeSet := ChangeSet current changedClasses.
-    classesInCangeSet := classesInCangeSet collect:[:eachClass | eachClass theNonMetaclass].
-    packagesInChangeSet := (classesInCangeSet collect:[:cls | cls package]) asSet.
+    packagesInChangeSet := ChangeSet current changedPackages.
 
     projectNameList := OrderedCollection new.
     aProjectList do:[:this |
@@ -715,7 +713,7 @@
     ^ projectNameList.
 
     "Created: / 17-02-2000 / 23:43:05 / cg"
-    "Modified: / 14-09-2006 / 16:02:28 / cg"
+    "Modified: / 22-09-2006 / 16:38:15 / cg"
 !
 
 release
@@ -786,5 +784,5 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.25 2006-09-20 13:30:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.26 2006-09-22 14:43:41 cg Exp $'
 ! !