--- a/Tools_ClassList.st	Fri Oct 20 16:33:55 2006 +0200
+++ b/Tools_ClassList.st	Mon Oct 23 10:39:52 2006 +0200
@@ -929,6 +929,7 @@
     (objects conform:[:something | something isMethod]) ifTrue:[
         |cls methods|
 
+        methods := objects.
         cls := self classAtTargetPointOf:aDropContext.
         methods first mclass isMeta ifTrue:[
             cls := cls theMetaclass
@@ -944,7 +945,7 @@
         ^ self
     ].
 
-    "Modified: / 17-10-2006 / 18:25:01 / cg"
+    "Modified: / 21-10-2006 / 20:39:55 / cg"
 ! !
 
 !ClassList methodsFor:'generators'!
@@ -1623,5 +1624,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.22 2006-10-18 11:11:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.23 2006-10-23 08:39:52 cg Exp $'
 ! !