--- a/MenuEditor.st	Wed Jan 28 18:20:27 1998 +0100
+++ b/MenuEditor.st	Wed Jan 28 18:32:02 1998 +0100
@@ -1389,7 +1389,8 @@
 
 defaultInfoLabel
 
-    ^(specClass ? 'No class defined') printString, ' >> ', self treeView selectorName
+    specClass isNil ifTrue: [^'No menu class defined'].
+    ^specClass printString, ' >> ', self treeView selectorName
   
 ! !
 
@@ -1729,10 +1730,10 @@
         aClass isClass ifTrue: [className := aClass name].
         aClass isString ifTrue: [className := aClass].
         message := className, ' ', aSelector.
-        self addToHistory: message -> #loadFromMessage:.
-        self valueOfInfoLabel value: self defaultInfoLabel
+        self addToHistory: message -> #loadFromMessage:
     ].
 
+    self valueOfInfoLabel value: self defaultInfoLabel.
     self treeView selection: 2.
     self menuChanged