--- a/MenuEditor.st	Mon Aug 02 12:53:59 1999 +0200
+++ b/MenuEditor.st	Mon Aug 02 12:56:48 1999 +0200
@@ -2294,7 +2294,7 @@
      valueOfEnablingCommitButtons to true in the help tool."
 
     self valueOfEnablingCommitButtons value: false.
-    self clearModifiedFlag.
+    self modifiedChannel value: false.
 
     slc ~= slices  ifTrue:[
         tabSelection ~~ 0 ifTrue:[