--- a/Tools__MethodList.st	Sat Nov 29 08:52:38 2014 +0100
+++ b/Tools__MethodList.st	Sat Nov 29 19:12:21 2014 +0100
@@ -786,7 +786,7 @@
 !
 
 update:something with:aParameter from:changedObject
-    |cls clsName sel mthd mustFlushInheritanceInfo methodIsShown|
+    |cls clsName sel mthd mustFlushInheritanceInfo|
 
     mustFlushInheritanceInfo := true.
 
@@ -836,7 +836,6 @@
             cls := aParameter at:1.
             (classes includesIdentical:cls) ifFalse:[ ^ self].
 
-            methodIsShown := false.
             sel := aParameter at:2.
             mthd := cls compiledMethodAt:sel.
             (mthd notNil and:[mthd isWrapped or:[mthd isMethodWithBreakpoints]]) ifTrue:[
@@ -844,16 +843,12 @@
 
                 original := mthd originalMethod.
                 (methodList includesIdentical:original) ifTrue:[
-                    methodIsShown := true.
                     methodList replaceAll:original with:mthd.
                     lastSelectedMethods notNil ifTrue:[
                         lastSelectedMethods replaceAll:original with:mthd.
                     ].
                 ]
-            ] ifFalse:[
-                methodIsShown := (methodList includesIdentical:mthd).
             ].
-            methodIsShown ifFalse:[^ self].
 
             self window shown ifFalse:[
                 "JV@2011-11-17: Do not break the dependency here,
@@ -1906,10 +1901,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.108 2014-11-20 14:49:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.109 2014-11-29 18:12:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.108 2014-11-20 14:49:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.109 2014-11-29 18:12:21 cg Exp $'
 ! !