--- a/MenuEditor.st	Sat Dec 21 14:11:41 2002 +0100
+++ b/MenuEditor.st	Wed Jan 08 13:16:05 2003 +0100
@@ -1404,13 +1404,13 @@
 helpTool
     "get the help tool application
     "
-  ^ wizards at:#help ifAbsentPut:[ |tool|
-	tool := UIHelpTool new createBuilder.
-	tool masterApplication:self.
-	tool modifiedHolder: self valueOfEnablingCommitButtons.
-	tool builder window:(ApplicationSubView new client:tool).
-	tool masterApplication:self.
-	tool
+    ^ wizards at:#help ifAbsentPut:[ |tool|
+        tool := UIHelpTool new.
+        tool masterApplication:self.
+        tool modifiedHolder: self valueOfEnablingCommitButtons.
+        tool builder window:(ApplicationSubView new client:tool).
+        tool masterApplication:self.
+        tool
     ]
 !
 
@@ -1460,6 +1460,7 @@
             acceptChannel setValue:false.
 
             ok ifTrue:[
+                helpTool accept.
                 rscRetrHolder value:(imageTool resourceRetriever).
                 helpKeyHolder value:(helpTool  helpKey).
                 selectedItem  fromAspects:aspects.
@@ -1471,7 +1472,7 @@
                 ].    
             ].
             selectedItem toAspects:aspects.
-            helpTool     setHelpKey:(helpKeyHolder value).
+            helpTool     helpKey:(helpKeyHolder value).
             imageTool    resourceRetriever:(rscRetrHolder value).
         ]
     ].
@@ -2401,7 +2402,9 @@
     code := code withCRs.
     (ReadStream on:code) fileIn.
 
-    self isStandAlone ifTrue: [self helpTool installHelpSpecsOnClass:self specClass].
+    self isStandAlone ifTrue:[
+        self helpTool doSave
+    ].
 
     self updateHistory.
     hasSaved := true.