--- a/Tools_MethodCategoryList.st	Thu Mar 16 15:25:48 2006 +0100
+++ b/Tools_MethodCategoryList.st	Thu Mar 16 15:51:13 2006 +0100
@@ -879,8 +879,7 @@
      generator nm variablesToHighlight classVarsToHighLight
      itemsWithVarRefs itemsWithVarMods itemsWithExtensions itemsWithSuppressedExtensions
      itemsInChangeSet
-     packageFilterOnInput packageFilter nameListEntryForALL emp 
-     changeSet classesInChangeSet emphasizedPlus emphasisForRef emphasisForMod|
+     packageFilterOnInput packageFilter nameListEntryForALL changeSet emphasizedPlus emphasisForRef emphasisForMod|
 
     generator := inGeneratorHolder value.
     generator isNil ifTrue:[ ^ #() ].
@@ -968,13 +967,12 @@
                  ].
 
     changeSet := ChangeSet current.
-    classesInChangeSet := changeSet changedClasses.
 
     classesProcessed do:[:eachClass |
         |classPackage|
 
         classPackage := eachClass package.
-        eachClass methodDictionary keysAndValuesDo:[:sel :mthd |
+        eachClass methodDictionary keysAndValuesDo:[:mSelector :mthd |
             |mPackage mCategory|
 
             mPackage := mthd package.
@@ -995,10 +993,8 @@
                     itemsWithSuppressedExtensions add:mCategory.    
                 ].
             ].
-            (classesInChangeSet includes:eachClass) ifTrue:[
-                (changeSet includesChangeForClass:eachClass selector:mthd selector) ifTrue:[
-                    itemsInChangeSet add:mCategory.    
-                ]
+            (changeSet includesChangeForClass:eachClass selector:mSelector) ifTrue:[
+                itemsInChangeSet add:mCategory.    
             ]
         ]
     ].
@@ -1015,7 +1011,7 @@
     or:[itemsWithExtensions notEmpty
     or:[itemsWithVarRefs notEmpty] ]) ifTrue:[
         rawProtocolList keysAndValuesDo:[:idx :cat |
-            |item emp inChangeSet hasExtensions hasVarRef hasVarMod|
+            |item inChangeSet hasExtensions hasVarRef hasVarMod|
 
             item := cat.
             inChangeSet := itemsInChangeSet includes:cat.
@@ -1244,5 +1240,5 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.13 2006-03-16 11:09:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.14 2006-03-16 14:51:13 cg Exp $'
 ! !