--- a/UIPainter.st	Wed Jul 30 14:28:17 2008 +0200
+++ b/UIPainter.st	Fri Aug 01 14:26:33 2008 +0200
@@ -6032,11 +6032,11 @@
     ^ true
 !
 
-doChangeHierarchyOf:anItem
+doChangeParentOfSelectedItemTo:newParentItem
 
     |canvas|
 
-    anItem isNil ifTrue:[
+    newParentItem isNil ifTrue:[
         ^ self
     ].
     self askForSelectionChangeAllowed ifFalse:[^ self].    
@@ -6044,7 +6044,7 @@
 
     canvas := self canvas.
     canvas deleteSelection.
-    canvas setSelection:(anItem contents view) withRedraw:false.
+    canvas setSelection:(newParentItem contents view) withRedraw:false.
     canvas pasteWithLayout.
 !
 
@@ -6101,7 +6101,7 @@
             eachChild contents spec class supportsSubComponents
         ] startingAt:idx ifNone:nil.
         newParentItem notNil ifTrue:[
-            self doChangeHierarchyOf:newParentItem
+            self doChangeParentOfSelectedItemTo:newParentItem
         ].
     ]
 !
@@ -6109,8 +6109,9 @@
 doStepOut
     |item|
 
-    ((item := self selectedNode) notNil and:[(item := item parent) notNil]) ifTrue:[
-        self doChangeHierarchyOf:(item parent)
+    item := self selectedNode.    
+    (item notNil and:[(item := item parent) notNil]) ifTrue:[
+        self doChangeParentOfSelectedItemTo:(item parent)
     ].
 !