--- a/MenuItem.st	Thu Aug 09 15:44:31 2018 +0200
+++ b/MenuItem.st	Thu Aug 09 15:51:06 2018 +0200
@@ -302,7 +302,14 @@
 activeHelpKey:aKey
     "the key used as index (and argument) to the helpSpec"
 
-    activeHelpKey := aKey
+    aKey isAssociation ifTrue:[
+        self halt:'someone provides a bad key to me'.
+        activeHelpKey := aKey key
+    ] ifFalse:[    
+        activeHelpKey := aKey
+    ].
+
+    "Modified: / 09-08-2018 / 15:50:45 / Claus Gittinger"
 !
 
 argument