--- a/UIPainterView.st	Mon Jun 23 19:37:51 2008 +0200
+++ b/UIPainterView.st	Mon Jun 23 19:38:04 2008 +0200
@@ -478,7 +478,7 @@
 
         view := self addSpec:eachSpec builder:builder in:containerToPasteInto.
 
-        keepPosition ifTrue:[
+        (keepPosition and:[ uiPainterAttributes notNil ]) ifTrue:[
             thisAbsOrigin := uiPainterAttributes at:#absOrigin.
             newOrigin := device 
                                 translatePoint:thisAbsOrigin
@@ -520,7 +520,7 @@
 !
 
 pasteWithLayout
-    "add the objects in the paste-buffer to the object view"
+    "add the objects in the paste-buffer to the object view - keep the old layout"
 
     |sel|
 
@@ -533,7 +533,7 @@
 !
 
 pasteWithoutLayout
-    "add the objects in the paste-buffer to the object view"
+    "add the objects in the paste-buffer to the object view - do not keep the old layout"
 
     |sel|