--- a/MenuEditor.st	Fri Jan 16 19:06:44 1998 +0100
+++ b/MenuEditor.st	Fri Jan 16 22:54:52 1998 +0100
@@ -612,11 +612,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Menu Builder'
-              #'layout:' #(#LayoutFrame 284 0 261 0 863 0 644 0)
+              #'layout:' #(#LayoutFrame 171 0 270 0 750 0 653 0)
               #'label:' 'Menu Builder'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1152 900)
-              #'bounds:' #(#Rectangle 284 261 864 645)
+              #'bounds:' #(#Rectangle 171 270 751 654)
               #'menu:' #menu
               #'usePreferredExtent:' false
           )
@@ -626,13 +626,13 @@
                #(
                  #(#MenuPanelSpec
                     #'name:' 'menuToolbarView'
-                    #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 34 0)
+                    #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
                     #'menu:' #menuToolbar
                     #'showSeparatingLines:' true
                 )
                  #(#VariableHorizontalPanelSpec
                     #'name:' 'variableHorizontalPanel1'
-                    #'layout:' #(#LayoutFrame 0 0.0 36 0.0 0 1.0 -22 1.0)
+                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
                     #'component:' 
                      #(#SpecCollection
                         #'collection:' 
@@ -1605,7 +1605,13 @@
             noText:'No';
             yesText:'Yes';
             showAtPointer;
-            accepted) ifFalse: [self modifiedChannel value: false. ^true].
+            accepted) 
+        ifFalse: 
+        [
+            self modifiedChannel value: false. 
+            isModified := false.
+            ^true
+        ].
         self accept
     ].
     ^true
@@ -1836,7 +1842,7 @@
 
 loadFromMessage: aMessage
 
-    ((aMessage size > 0) and: [self checkModified])
+    (((aMessage size > 0) and: [self checkMenuItemModified]) and: [self checkModified])
     ifTrue:
     [
         |readStream aClass aSelector|
@@ -1924,8 +1930,8 @@
         aspects do:[:anAspect| anAspect value:nil].
         node contents toAspects:aspects
     ].
-    self modifiedChannel value: false
-
+    self modifiedChannel value: false.
+    isModified := false
 !
 
 doBrowseAppClass