--- a/MenuEditor.st	Tue Feb 03 23:41:20 1998 +0100
+++ b/MenuEditor.st	Wed Feb 04 12:44:36 1998 +0100
@@ -2084,7 +2084,7 @@
     menu     := treeView asMenu.
 
     menu isNil ifTrue:[
-        ^ self information:'No menu defined.'
+        ^ self information:'No menu defined!!'
     ].
     menu := menu literalArrayEncoding.
     spec := WriteStream on:String new.
@@ -2093,7 +2093,7 @@
 
     "/ if that method already exists, do not overwrite the category
 
-    category := 'interface specs'.
+    category := 'menu specs'.
     (mthd := cls class compiledMethodAt:selector) notNil ifTrue:[
         category := mthd category.
     ].