--- a/UISelectionPanel.st	Fri Mar 25 22:52:33 2016 +0100
+++ b/UISelectionPanel.st	Sat Apr 02 16:26:21 2016 +0200
@@ -1838,16 +1838,16 @@
 paste:something
     "paste something at a point"
 
-    |coll specs point device ext spec|
+    |coll specs point gallerysDevice ext spec|
 
     clipBoardSpec isNil ifTrue:[
         clipBoardSpec := SpecCollection new.
         clipBoardSpec collection:(OrderedCollection new).
     ].
     coll   := clipBoardSpec collection.
-    device := gallery device.
+    gallerysDevice := gallery device.
 
-    point  := device translatePoint:(device pointerPosition)
+    point  := gallerysDevice translatePoint:(gallerysDevice pointerPosition)
                            fromView:nil
                              toView:(gallery canvas).