--- a/Tools_MethodList.st	Tue Mar 26 17:53:21 2013 +0100
+++ b/Tools_MethodList.st	Tue Mar 26 18:15:45 2013 +0100
@@ -839,8 +839,6 @@
 
         (something == #methodInClass 
         or:[ something == #methodInClassRemoved ]) ifTrue:[
-            |sel cls|
-
             sel := aParameter second.
             cls := aParameter first.
             (classes contains:[:aClass | aClass name == cls name]) ifFalse:[
@@ -1818,10 +1816,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.77 2013-03-26 14:21:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.78 2013-03-26 17:15:45 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.77 2013-03-26 14:21:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.78 2013-03-26 17:15:45 stefan Exp $'
 ! !