--- a/MenuEditor.st	Tue Feb 25 14:37:21 2014 +0100
+++ b/MenuEditor.st	Wed Feb 26 12:27:25 2014 +0100
@@ -4209,7 +4209,7 @@
         ] ifFalse:[
             (cls respondsTo:#visualFor:) ifTrue:[
                 image := cls visualFor:sel.
-                image ~~ (cls perform:sel) ifTrue:[
+                image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[
                     self warn:'The image is resolved via #visualFor: from some unknown class'.
                     sel := #visualFor:.
                 ].