--- a/UIPainterView.st	Wed Nov 15 12:09:38 2017 +0100
+++ b/UIPainterView.st	Thu Nov 16 23:54:17 2017 +0100
@@ -513,7 +513,7 @@
             ] ifFalse:[
                 pastePoint isNil ifTrue:[ pastePoint := 0@0 ].
                 newOrigin := device 
-                                    translatePoint:pastePoint
+                                    translatePoint:pastePoint asPoint
                                     fromView:self
                                     toView:containerToPasteInto.
             ].
@@ -563,7 +563,7 @@
     newSel size == 1 ifTrue:[newSel := newSel at:1].
     ^ newSel
 
-    "Modified: / 03-11-2010 / 07:20:06 / cg"
+    "Modified: / 16-11-2017 / 23:49:56 / cg"
 !
 
 pasteSpecifications:aSpecificationOrList into:aContainerOrNil keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNilOrKeep