--- a/MenuItem.st	Wed May 29 03:28:40 2019 +0000
+++ b/MenuItem.st	Thu May 30 09:43:30 2019 +0200
@@ -332,19 +332,23 @@
 !
 
 activeHelpKey
-    "the key used as index (and argument) to the helpSpec"
-
-    ^ activeHelpKey
-!
-
-activeHelpKey:aKey
     "the key used as index (and argument) to the helpSpec.
      New: may also be an association; then the assoc's key is the help-text provider,
      and the assoc's value is the key in that provider's helpspec."
 
-    activeHelpKey := aKey
+    ^ activeHelpKey
+
+    "Modified (comment): / 30-05-2019 / 09:42:26 / Claus Gittinger"
+!
 
-    "Modified (comment): / 10-08-2018 / 11:39:30 / Claus Gittinger"
+activeHelpKey:aSymbolicKeyOrClassPlusSymbolAssoc
+    "the key used as index (and argument) to the helpSpec.
+     New: may also be an association; then the assoc's key is the help-text provider,
+     and the assoc's value is the key in that provider's helpspec."
+
+    activeHelpKey := aSymbolicKeyOrClassPlusSymbolAssoc
+
+    "Modified (format): / 30-05-2019 / 09:40:16 / Claus Gittinger"
 !
 
 argument