--- a/UIHelpTool.st	Fri Sep 06 20:48:17 2002 +0200
+++ b/UIHelpTool.st	Mon Sep 16 12:15:16 2002 +0200
@@ -578,6 +578,17 @@
     "Modified: / 16.7.1998 / 18:12:09 / cg"
 !
 
+setHelpKey:aKey
+    "set the helpKey without notification
+    "
+    |model|
+
+    model := modifiedHolder.
+    modifiedHolder := nil.
+    self helpKey:aKey.
+    modifiedHolder := model.
+!
+
 specClass
     "returns the class on which the help tool works"