--- a/Tools__MethodList.st	Wed Mar 15 12:19:13 2017 +0100
+++ b/Tools__MethodList.st	Wed Mar 15 12:19:38 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -1701,16 +1703,6 @@
     ].
 
     icn isNil ifTrue:[
-        self showImageResourceMethodsImages value ~~ false ifTrue:[
-            (aMethod hasImageResource) ifTrue:[
-                aMethod mclass isMeta ifTrue:[
-                    icn := aMethod valueWithReceiver:nil arguments:nil .
-                ].
-            ].
-        ].
-    ].
-
-    icn isNil ifTrue:[
         showMethodTypeIcon value ~~ false ifTrue:[
             icn := self resourceIconForMethod:aMethod.
         ].
@@ -1858,14 +1850,30 @@
 
     "Created: / 22-10-1996 / 19:51:00 / cg"
     "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 07-03-2012 / 19:06:09 / cg"
     "Modified: / 25-02-2015 / 17:14:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 15-03-2017 / 12:08:50 / cg"
 !
 
 resourceIconForMethod:aMethod
+    self showImageResourceMethodsImages value ~~ false ifTrue:[
+        (aMethod hasImageResource) ifTrue:[
+            Error ignoreIn:[    
+                |img|
+
+                img := aMethod valueWithReceiver:nil arguments:nil.
+                img notNil ifTrue:[
+                    ((img width > 24) or:[img height > 24]) ifTrue:[
+                        img := img magnifiedPreservingRatioTo:(24@24).
+                    ].    
+                    ^ img
+                ].    
+            ].
+        ].
+    ].
+    
     ^ SystemBrowser resourceIconForMethod:aMethod
 
-    "Modified: / 17-08-2006 / 09:09:01 / cg"
+    "Modified: / 15-03-2017 / 12:09:43 / cg"
 ! !
 
 !MethodList methodsFor:'private-watching'!