--- a/MenuItem.st	Mon Jul 15 15:36:53 2019 +0200
+++ b/MenuItem.st	Tue Jul 16 11:11:56 2019 +0200
@@ -1086,7 +1086,7 @@
                         in:aResourceContainerOrApplication
                         rememberResourcesIn:aValueHolderOrNil.
     ].
-    (label notNil and:[label includesString:'%(']) ifTrue:[
+    (label notNil and:[label isString and:[label string includesString:'%(']]) ifTrue:[
         |fetchDict|
 
         fetchDict := VirtualDictionary new.
@@ -1110,6 +1110,7 @@
 
     "Modified: / 18-06-1998 / 16:54:25 / cg"
     "Modified: / 28-12-2017 / 18:36:31 / stefan"
+    "Modified: / 16-07-2019 / 11:11:48 / Claus Gittinger"
 !
 
 receiver:aReceiver perform:aSelector with:anArgument ifNone:aBlock