--- a/Tools_ClassList.st	Fri May 01 19:37:35 2009 +0200
+++ b/Tools_ClassList.st	Fri May 01 19:37:47 2009 +0200
@@ -928,7 +928,9 @@
 !
 
 doDropContext:aDropContext
-    |objects|
+    |objects browser|
+
+    browser := self masterApplication.
 
     objects := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
     (objects conform:[:something | something isMethod]) ifTrue:[
@@ -941,10 +943,10 @@
         ].
 
         cls notNil ifTrue:[
-            self window sensor ctrlDown ifTrue:[
-                self masterApplication copyMethods:methods toClass:cls.
+            aDropContext dragType == DropContext dragTypeCopy ifTrue:[
+                browser copyMethods:methods toClass:cls.
             ] ifFalse:[
-                self masterApplication moveMethods:methods toClass:cls.
+                browser moveMethods:methods toClass:cls.
             ].
         ].
         ^ self
@@ -1662,5 +1664,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.37 2008-09-22 15:10:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.38 2009-05-01 17:37:47 cg Exp $'
 ! !