--- a/MenuEditor.st	Sun Feb 15 21:12:37 1998 +0100
+++ b/MenuEditor.st	Tue Feb 17 12:13:59 1998 +0100
@@ -1790,8 +1790,7 @@
 
     super accept.
 
-    node := self treeView selectedNode.
-    node notNil
+    (node := self treeView selectedNode) notNil
     ifTrue:
     [
         self isHelpToolSelected
@@ -1839,9 +1838,8 @@
 
     |view|
 
-    view := Screen current viewFromUser.
-
-    (view isNil or:[view == Screen current rootView]) ifTrue:[
+    ((view := Screen current viewFromUser) isNil or:
+    [view == Screen current rootView]) ifTrue:[
         ^ self
     ].
     view specClass == MenuPanelSpec ifTrue:[
@@ -1853,7 +1851,7 @@
 doSave
     |cls treeView menu spec mthd category code|
 
-    super doSave ifTrue: [^nil].
+    super doSave ifFalse: [^nil].
 
     cls := self resolveName: specClass.
     treeView := self treeView.