--- a/Tools_ProjectList.st	Wed Aug 23 20:06:35 2006 +0200
+++ b/Tools_ProjectList.st	Wed Aug 23 20:12:56 2006 +0200
@@ -311,6 +311,11 @@
 "/        ^ self
 "/    ].
 
+    changedObject == ChangeSet ifTrue:[
+        self invalidateList.
+        ^ self
+    ].
+
     (organizerMode notNil
     and:[organizerMode value ~~ #project]) ifTrue:[
         self invalidateList.
@@ -776,5 +781,5 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.16 2006-08-23 18:06:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.17 2006-08-23 18:12:56 cg Exp $'
 ! !