--- a/Tools_MethodList.st	Wed Mar 27 20:29:02 2013 +0100
+++ b/Tools_MethodList.st	Wed Mar 27 20:29:21 2013 +0100
@@ -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'!
@@ -342,7 +342,7 @@
 !MethodList methodsFor:'change & update'!
 
 delayedUpdate:something with:aParameter from:changedObject
-    |cls sel oldMethod newMethod methods newSelection
+    |cls clsName sel oldMethod newMethod methods newSelection
      selectionHolder selection needSelectionChange|
 
     selectionHolder := self selectedMethods.
@@ -352,15 +352,11 @@
         classes notNil ifTrue:[
             something == #classDefinition ifTrue:[
                 cls := aParameter.
-                (classes contains:[:aClass | aClass name == cls name]) ifFalse:[
-                    ^ self   "/ I dont care for that class
+                clsName := cls name.        
+                (classes contains:[:aClass | aClass name = clsName]) ifFalse:[
+                    ^ self   "/ I don't care for that class
                 ].
-                classes := classes collect:[:eachClass | eachClass isMeta ifTrue:[
-                                                             (Smalltalk at:eachClass theNonMetaclass name) class 
-                                                         ] ifFalse:[
-                                                             Smalltalk at:eachClass name
-                                                         ]
-                                           ].
+                classes := classes collect:[:eachClass | (Smalltalk classNamed:eachClass name) ].
                 self invalidateList.
 "/                self updateList.
                 ^ self.
@@ -762,7 +758,7 @@
 !
 
 update:something with:aParameter from:changedObject
-    |cls sel mthd mustFlushInheritanceInfo|
+    |cls clsName sel mthd mustFlushInheritanceInfo|
 
     mustFlushInheritanceInfo := true.
 
@@ -835,11 +831,12 @@
 
         (something == #methodInClass 
         or:[ something == #methodInClassRemoved ]) ifTrue:[
-            sel := aParameter second.
             cls := aParameter first.
-            (classes contains:[:aClass | aClass name == cls name]) ifFalse:[
+            clsName := cls name.    
+            (classes contains:[:aClass | aClass name = clsName]) ifFalse:[
                 ^ self   "/ I dont care for that class
             ].
+            sel := aParameter second.
             (methodList contains:[:mthd | mthd getMclass notNil and:[mthd selector = sel]]) ifFalse:[
                 mustFlushInheritanceInfo := false.
                 self window topView hasFocus ifFalse:[
@@ -856,8 +853,9 @@
 
         something == #classDefinition ifTrue:[
             cls := aParameter.
-            (classes contains:[:aClass | aClass name == cls name]) ifFalse:[
-                ^ self   "/ I dont care for that class
+            clsName := cls name.    
+            (classes contains:[:aClass | aClass name = clsName]) ifFalse:[
+                ^ self   "/ I don't care for that class
             ].
             self enqueueDelayedUpdate:something with:aParameter from:changedObject.
             ^ self.
@@ -1812,10 +1810,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.79 2013-03-27 16:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.80 2013-03-27 19:29:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.79 2013-03-27 16:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.80 2013-03-27 19:29:21 cg Exp $'
 ! !