--- a/UIPainter.st	Tue Sep 21 12:31:03 2004 +0200
+++ b/UIPainter.st	Tue Sep 21 12:49:29 2004 +0200
@@ -2661,10 +2661,11 @@
         treeSelection := treeView selection.
         "/ the top-node cannot be cut, copied or pasted.
         canCutOrCopy := treeSelection size >= 1 and:[treeSelection first ~~ 1].
-        clipboard := self getSelection.
-
-        clipboard isCollection ifTrue:[clipboard notEmpty ifTrue:[sel := clipboard first]]
-                              ifFalse:[sel := clipboard].
+        clipboard := self getClipboardObject.
+
+        clipboard isCollection 
+                ifTrue:[clipboard notEmpty ifTrue:[sel := clipboard first]]
+                ifFalse:[sel := clipboard].
 
         canPaste := (sel isKindOf:UISpecification) 
 "/                    and:[treeSelection size  = 1