--- a/MenuEditor.st	Fri Jan 16 15:53:12 1998 +0100
+++ b/MenuEditor.st	Fri Jan 16 16:33:43 1998 +0100
@@ -1746,6 +1746,7 @@
 
     |oldClass newClass|
 
+    self modifiedChannel value: false.
     oldClass := self specClass.
     self specClass:aClass.
     newClass := self specClass.