--- a/MenuPanel.st	Mon Jun 11 10:26:40 2018 +0200
+++ b/MenuPanel.st	Mon Jun 11 10:28:51 2018 +0200
@@ -7181,9 +7181,11 @@
 
     "/ activeHelpKey, or - if unassigned - the nameKey as fallback
     (key1 := menuItem activeHelpKey) isNil ifTrue:[
-        Smalltalk isSmalltalkDevelopmentSystem ifTrue:[
-            (menuPanel notNil and:[menuPanel isPopUpView]) ifFalse:[
-                ('** no activeHelpKey in item: ',menuItem printString) printCR.
+        ActiveHelp debugging ifTrue:[
+            Smalltalk isSmalltalkDevelopmentSystem ifTrue:[
+                (menuPanel notNil and:[menuPanel isPopUpView]) ifFalse:[
+                    ('** no activeHelpKey in item: ',menuItem printString) printCR.
+                ].
             ].
         ].
         key2 := self nameKey.
@@ -7204,8 +7206,10 @@
                 text := app helpTextForKey:key.
                 text notNil ifTrue:[^ text].
                 key == key1 ifTrue:[
-                    Smalltalk isSmalltalkDevelopmentSystem ifTrue:[
-                        ('no help for key: "%1" in spec of "%2"' bindWith:key with:app class name) infoPrintCR.
+                    ActiveHelp debugging ifTrue:[
+                        Smalltalk isSmalltalkDevelopmentSystem ifTrue:[
+                            ('no help for key: "%1" in spec of "%2"' bindWith:key with:app class name) infoPrintCR.
+                        ].    
                     ].    
                 ].    
             ].
@@ -7232,7 +7236,7 @@
     ].    
     ^ text
 
-    "Modified: / 11-06-2018 / 10:26:10 / Claus Gittinger"
+    "Modified: / 11-06-2018 / 10:28:25 / Claus Gittinger"
 !
 
 activeHelpText:aText