--- a/MenuEditor.st	Wed Jul 22 21:12:11 1998 +0200
+++ b/MenuEditor.st	Thu Jul 23 16:13:10 1998 +0200
@@ -2773,10 +2773,11 @@
 !MenuEditor::TreeView methodsFor:'menus'!
 
 doCopy
+    |clip|
 
     self hasSelection ifTrue:[
-        self application clipboard: OrderedCollection new.
-        self selectionDo:[:i| self application clipboard add:((listOfNodes at:i) copy)].
+        self application clipboard:(clip := OrderedCollection new).
+        self selectionDo:[:i | clip add:((listOfNodes at:i) copy)].
         self topView application updateAllToolInstances.
     ]
 !
@@ -2814,8 +2815,10 @@
 !
 
 doCut
-
-    (self topView application hasValidSelection value and: [self askForItemModification])
+    |app|
+
+    app := self topView application.
+    (app hasValidSelection value and: [self askForItemModification])
     ifTrue:
     [
         |selectedNodes|
@@ -2824,7 +2827,7 @@
         self selectedNodesRemove.
         self selection: selectedNodes first - 1.
         self setModified.
-        self topView application updateAllToolInstances.
+        app updateAllToolInstances.
     ]
 
 !
@@ -2844,9 +2847,11 @@
 !
 
 doPaste
-
-    (self application clipboard notNil and:[self selectedNode notNil]) ifTrue:[
-        self addElement:(self application clipboard collect:[:el| el copy])
+    |clip|
+
+    clip := self application clipboard.
+    (clip notNil and:[self selectedNode notNil]) ifTrue:[
+        self addElement:(clip collect:[:el| el copy])
     ].
 ! !
 
@@ -2921,10 +2926,10 @@
 !
 
 setModified 
-
-    self topView application modified: true.
-
-    self topView application updateChannels
+    |app|
+
+    (app := self topView application) modified: true.
+    app updateChannels
 ! !
 
 !MenuEditor class methodsFor:'documentation'!