--- a/Tools_ClassList.st	Mon Mar 10 17:46:57 2008 +0100
+++ b/Tools_ClassList.st	Mon Mar 10 18:09:30 2008 +0100
@@ -941,7 +941,11 @@
         ].
 
         cls notNil ifTrue:[
-            self masterApplication moveMethods:methods toClass:cls.
+            self window sensor ctrlDown ifTrue:[
+                self masterApplication copyMethods:methods toClass:cls.
+            ] ifFalse:[
+                self masterApplication moveMethods:methods toClass:cls.
+            ].
         ].
         ^ self
     ].
@@ -1650,5 +1654,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.31 2008-02-28 12:25:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.32 2008-03-10 17:09:30 stefan Exp $'
 ! !