--- a/MenuPanel.st	Fri Sep 14 22:26:09 2018 +0200
+++ b/MenuPanel.st	Sat Sep 15 12:25:22 2018 +0200
@@ -7210,23 +7210,26 @@
 
     "/ if activeHelpKey is unassigned try nameKey, itemValue, indication as fallback
     (key1 := menuItem activeHelpKey) isNil ifTrue:[
-        ActiveHelp debuggingHelpText ifTrue:[
-            Smalltalk isSmalltalkDevelopmentSystem ifTrue:[
-                (menuPanel notNil and:[menuPanel isPopUpView]) ifFalse:[
-                    ('** no activeHelpKey in item: ',menuItem printString) printCR.
+        "/ but only if the label is not a text label
+        label isString ifFalse:[
+            ActiveHelp debuggingHelpText ifTrue:[
+                Smalltalk isSmalltalkDevelopmentSystem ifTrue:[
+                    (menuPanel notNil and:[menuPanel isPopUpView]) ifFalse:[
+                        ('** no activeHelpKey in item: ',menuItem printString) printCR.
+                    ].
                 ].
             ].
-        ].
-        key2 := self nameKey.
-        key2 isSymbol ifTrue:[
-            key3 := key2 asLowercaseFirst asSymbolIfInterned
-        ].    
-        self itemValue isSymbol ifTrue:[
-            key4 := self itemValue
-        ].
-        (menuItem notNil and:[menuItem indication isSymbol]) ifTrue:[
-            key5 := menuItem indication
-        ]
+            key2 := self nameKey.
+            key2 isSymbol ifTrue:[
+                key3 := key2 asLowercaseFirst asSymbolIfInterned
+            ].    
+            self itemValue isSymbol ifTrue:[
+                key4 := self itemValue
+            ].
+            (menuItem notNil and:[menuItem indication isSymbol]) ifTrue:[
+                key5 := menuItem indication
+            ]
+        ].
     ].
 
     key1 isAssociation ifTrue:[
@@ -7275,7 +7278,7 @@
     ].    
     ^ text
 
-    "Modified (comment): / 10-08-2018 / 11:35:37 / Claus Gittinger"
+    "Modified: / 15-09-2018 / 12:24:20 / Claus Gittinger"
 !
 
 activeHelpText:aText