--- a/Tools_ClassCategoryList.st	Mon Sep 21 23:29:29 2009 +0200
+++ b/Tools_ClassCategoryList.st	Mon Sep 21 23:46:51 2009 +0200
@@ -573,7 +573,11 @@
                       ]
     ].
 
-    ^ Iterator on:[:whatToDo | 
+    ^ Iterator on:[:whatToDo |
+                       |changedClasses|
+
+                       showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ].
+
                        Smalltalk allClassesDo:[:cls | 
                            |cat|
 
@@ -583,8 +587,8 @@
                                    cat := cls category ? '* no category *'.
                                    ((cats includes:cat)
                                     or:[showChangedClasses 
-                                        and:[ (ChangeSet current changedClasses includes:cls theNonMetaclass)
-                                              or:[(ChangeSet current changedClasses includes:cls theMetaclass)] ]]) ifTrue:[
+                                        and:[ (changedClasses includes:cls theNonMetaclass)
+                                              or:[(changedClasses includes:cls theMetaclass)] ]]) ifTrue:[
                                        (nameSpaceFilter isNil
                                        or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[
                                            (packageFilter isNil
@@ -881,5 +885,5 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.24 2009-09-21 20:46:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.25 2009-09-21 21:46:51 cg Exp $'
 ! !