--- a/UIHelpTool.st	Sat Jun 21 17:04:35 1997 +0200
+++ b/UIHelpTool.st	Sat Jun 21 17:06:18 1997 +0200
@@ -51,14 +51,16 @@
 
 helpSpec
     "return a dictionary filled with helpKey -> helptext associations.
-     These are used by the activeHelp tool."
-
-    |dict|
+     These are used by the activeHelp tool.
+    "
+  ^ super helpSpec addPairsFrom:#(
 
-    dict := super helpSpec.
-    dict at:#activeHelpAccessKey put:'This ID is used to access an active
-help text for the selected component'.
-    ^ dict
+#activeHelpAccessKey
+'This ID is used to access an active
+help text for the selected component'
+
+)
+
 ! !
 
 !UIHelpTool class methodsFor:'interface specs'!