--- a/Tools_ClassList.st	Wed Oct 24 20:54:50 2012 +0200
+++ b/Tools_ClassList.st	Thu Oct 25 14:15:21 2012 +0200
@@ -1016,9 +1016,10 @@
 
     ^ Iterator 
         on:[:whatToDo |
-                |allEntry classes cls already anyMethod packages classIsInPackage showChanged|
+                |allEntry classes cls already anyMethod packages classIsInPackage showChanged changedClasses|
 
                 allEntry := self class nameListEntryForALL.
+                changedClasses := ChangeSet current changedClasses.
 
                 classes := self selectedClasses value ? #().
                 packages := packageFilter value value.
@@ -1030,7 +1031,7 @@
                         anyMethod := false.
                         classIsInPackage := packages isNil 
                                             or:[(packages includes:cls package)
-                                            or:[ showChanged and:[ChangeSet current changedClasses includes:cls]] ].
+                                            or:[ showChanged and:[changedClasses includes:cls]] ].
 
                         cls theNonMetaclass isJavaClass ifTrue:[
                             cls isMeta ifTrue:[
@@ -2011,9 +2012,9 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.62 2012-10-23 18:21:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.63 2012-10-25 12:15:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.62 2012-10-23 18:21:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.63 2012-10-25 12:15:21 cg Exp $'
 ! !