--- a/Tools_ClassList.st	Wed Nov 29 13:35:26 2006 +0100
+++ b/Tools_ClassList.st	Thu Nov 30 14:47:47 2006 +0100
@@ -1242,8 +1242,8 @@
 
                             |nm pkg emPkg hasExtensions isInChangeSet isInRemoteChangeSet icon|
 
-                            isInChangeSet := classesInCangeSet includes:cls theNonMetaclass.
-                            isInRemoteChangeSet := classesInRemoteChangeSet includes:cls theNonMetaclass.
+                            isInChangeSet := classesInCangeSet contains:[:changeClass | changeClass name = cls theNonMetaclass name].
+                            isInRemoteChangeSet := classesInRemoteChangeSet contains:[:changeClass | changeClass name = cls theNonMetaclass name].
 
                             nm := self nameListEntryFor:cls withNameSpace:showNamespaces.
                             isInChangeSet ifTrue:[
@@ -1631,5 +1631,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.24 2006-11-10 16:57:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.25 2006-11-30 13:47:47 boris Exp $'
 ! !