--- a/Tools_MethodList.st	Sun Jun 07 12:17:23 2009 +0200
+++ b/Tools_MethodList.st	Sun Jun 07 12:17:44 2009 +0200
@@ -1248,8 +1248,9 @@
 
     oldListSize := self browserNameList size.
 
-    "/ self topApplication withWaitCursorDo:[
-        newList := self listOfMethodNames.
+        self topApplication withWaitCursorDo:[
+            newList := self listOfMethodNames.
+        ].
         newListSize := newList size.
         sameContents := self updateListFor:newList.
 
@@ -1579,5 +1580,5 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.36 2009-05-28 19:19:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.37 2009-06-07 10:17:44 cg Exp $'
 ! !