--- a/UISelectionPanel.st	Tue Sep 21 12:31:03 2004 +0200
+++ b/UISelectionPanel.st	Tue Sep 21 12:49:29 2004 +0200
@@ -1526,7 +1526,7 @@
         ^ self defineClassAndSelector
     ].
 
-    paste := self window getSelection.
+    paste := self window getClipboardObject.
 
     (self canPaste:paste) ifTrue:[
         menu := self class menuUnselected decodeAsLiteralArray.