--- a/Tools_MethodList.st	Mon Aug 08 18:27:03 2011 +0200
+++ b/Tools_MethodList.st	Mon Aug 08 18:27:33 2011 +0200
@@ -14,16 +14,16 @@
 "{ NameSpace: Tools }"
 
 BrowserList subclass:#MethodList
-        instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods
-                browserNameList variableFilter filterClassVars updateProcess
-                lastShowClass lastShowCategory lastShowClassFirst
-                showMethodInheritance lastMethodClass lastMethodClassesSubclasses
-                classAndSelectorsRedefinedBySubclassesOfClass showClass
-                showMethodComplexity showMethodTypeIcon
-                showImageResourceMethodsImages'
-        classVariableNames:'ShowComplexityValue'
-        poolDictionaries:''
-        category:'Interface-Browsers-New'
+	instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods
+		browserNameList variableFilter filterClassVars updateProcess
+		lastShowClass lastShowCategory lastShowClassFirst
+		showMethodInheritance lastMethodClass lastMethodClassesSubclasses
+		classAndSelectorsRedefinedBySubclassesOfClass showClass
+		showMethodComplexity showMethodTypeIcon
+		showImageResourceMethodsImages'
+	classVariableNames:'ShowComplexityValue'
+	poolDictionaries:''
+	category:'Interface-Browsers-New'
 !
 
 !MethodList class methodsFor:'documentation'!
@@ -1428,6 +1428,10 @@
     idx == 0 ifTrue:[
         aMethod isWrapped ifTrue:[
             idx := methodList identityIndexOf:aMethod originalMethod.
+            idx == 0 ifTrue:[
+                "/ aMethod (wrapped) has changed its status, but is not in the list.
+                ^ self.
+            ].
         ]
     ].
     idx == 0 ifTrue:[
@@ -1435,6 +1439,8 @@
     ] ifFalse:[
         self browserNameList at:idx put:s.
     ]
+
+    "Modified: / 08-08-2011 / 17:10:10 / cg"
 ! !
 
 !MethodList methodsFor:'private-presentation'!
@@ -1697,9 +1703,9 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.56 2011-07-24 09:37:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.57 2011-08-08 16:27:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.56 2011-07-24 09:37:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.57 2011-08-08 16:27:33 cg Exp $'
 ! !