--- a/HierarchicalListEditor.st	Mon Feb 02 18:55:16 1998 +0100
+++ b/HierarchicalListEditor.st	Mon Feb 02 19:00:53 1998 +0100
@@ -79,6 +79,12 @@
 #fileNew
 'Creates a new hierarchical list.'
 
+#fileReload
+'Reload hierarchical list from current class and selector.'
+
+#fileSave
+'Saves current hierarchical list.'
+
 )
 ! !
 
@@ -311,6 +317,7 @@
                        #(#MenuItem
                           #'label:' 'Reload'
                           #'value:' #doReload
+                          #'activeHelpKey:' #fileReload
                       )
                        #(#MenuItem
                           #'label:' '-'
@@ -318,6 +325,7 @@
                        #(#MenuItem
                           #'label:' 'Save'
                           #'value:' #doInstall
+                          #'activeHelpKey:' #fileSave
                           #'enabled:' #hasValidClass
                       )
                        #(#MenuItem
@@ -326,7 +334,7 @@
                        #(#MenuItem
                           #'label:' 'Define Class And Selector...'
                           #'value:' #doDefineClass
-                          #'activeHelpKey:' #defineClassAndSelector
+                          #'activeHelpKey:' #fileDefineClassAndSelector
                       )
                        #(#MenuItem
                           #'label:' '-'