--- a/Tools_MethodList.st	Thu Apr 21 19:09:48 2005 +0200
+++ b/Tools_MethodList.st	Thu Apr 21 19:10:32 2005 +0200
@@ -1461,20 +1461,20 @@
 
     methodListView := aBuilder componentAt:'List'.
     methodListView notNil ifTrue:[
-	methodListView allowDrag:true.
-	methodListView dragObjectConverter:[:obj | 
-					    |nm method idx|
+        methodListView allowDrag:true.
+        methodListView dragObjectConverter:[:obj | 
+                                            |nm method idx|
 
-					    nm := obj theObject asString.
-					    idx := browserNameList value indexOf:nm string.
-					    method := methodList value at:idx.
-					    DropObject newMethod:method.
-					 ].
+                                            nm := obj theObject asString string string.
+                                            idx := browserNameList value findFirst:[:item | item string string = nm].
+                                            method := methodList value at:idx.
+                                            DropObject newMethod:method.
+                                         ].
     ]
 ! !
 
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.10 2005-04-20 19:49:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.11 2005-04-21 17:10:32 cg Exp $'
 ! !