--- a/Object.st	Tue Sep 21 11:20:02 2004 +0200
+++ b/Object.st	Tue Sep 21 12:30:41 2004 +0200
@@ -8973,7 +8973,7 @@
         action == #copy ifTrue:[ |s|
             s := '' writeStream.
             sender fullPrintAllOn:s.
-            currentScreen rootView setTextSelection:s contents.
+            currentScreen rootView setClipboardText:s contents.
         ].
         AbortOperationRequest raise.
         "not reached"
@@ -9164,7 +9164,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.512 2004-09-20 10:37:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.513 2004-09-21 10:30:41 ca Exp $'
 ! !
 
 Object initialize!