--- a/MenuPanel.st	Sat Jun 09 09:35:40 2018 +0200
+++ b/MenuPanel.st	Sat Jun 09 11:04:27 2018 +0200
@@ -7164,7 +7164,9 @@
     "/ activeHelpKey, or - if unassigned - the nameKey as fallback
     (key1 := menuItem activeHelpKey) isNil ifTrue:[
         Smalltalk isSmalltalkDevelopmentSystem ifTrue:[
-            Logger warning:'** no activeHelpKey in item: ',menuItem printString.
+            (menuPanel notNil and:[menuPanel isPopUpView]) ifFalse:[
+                ('** no activeHelpKey in item: ',menuItem printString) printCR.
+            ].
         ].
         key2 := self nameKey.
         key2 isSymbol ifTrue:[
@@ -7212,7 +7214,7 @@
     ].    
     ^ text
 
-    "Modified: / 07-06-2018 / 21:24:33 / Claus Gittinger"
+    "Modified: / 09-06-2018 / 10:50:49 / Claus Gittinger"
 !
 
 activeHelpText:aText