--- a/MenuEditor.st	Mon May 04 16:42:14 2015 +0200
+++ b/MenuEditor.st	Fri May 08 14:56:14 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
 	      All Rights Reserved
@@ -4389,11 +4391,13 @@
             (cls respondsTo:#visualFor:) ifTrue:[
                 image := cls visualFor:sel.
                 image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[
-                    self warn:'The image is resolved via #visualFor: from some unknown class'.
-                    sel := #visualFor:.
+                    self warn:'The image as returned by #visualFor: is probably provided by another class.\\Showing all implementors of #',sel.
+                    "/ sel := #visualFor:.
+                    UserPreferences systemBrowserClass browseImplementorsOf:sel.
+                    ^ self.
                 ].
             ].
-            UserPreferences systemBrowserClass openInClass:cls class selector:sel
+            UserPreferences systemBrowserClass openInClass:(cls class) selector:sel
         ]
     ]