--- a/Tools__MethodList.st	Fri Sep 21 15:34:54 2018 +0200
+++ b/Tools__MethodList.st	Fri Sep 21 15:35:32 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -1931,7 +1929,7 @@
     "/ wrap icons (i.e. break- or trace points on the method)
     "/ have higher prio ...
     "/
-    (aMethod notNil and:[aMethod isWrapped]) ifTrue:[
+    (aMethod isWrapped) ifTrue:[
         (s endsWith:' !!') ifTrue:[
             s := s copyButLast:2
         ].
@@ -1950,7 +1948,7 @@
     "/ breakpoint icons (i.e. break- or trace points inside)
     "/
     icn isNil ifTrue:[
-        (aMethod notNil and:[aMethod isMethodWithBreakpoints]) ifTrue:[
+        (aMethod isMethodWithBreakpoints) ifTrue:[
             aMethod hasEnabledBreakpoints ifTrue:[ 
                 icn := self lineBreakPointedIcon
             ] ifFalse:[    
@@ -2095,7 +2093,6 @@
             redefIcon := self redefinedOrInheritedIconFor:aMethod.
         ].
     ].
-
     (icn notNil or:[redefIcon notNil]) ifTrue:[
         "/eXept version
         "/l := LabelAndIcon icon:redefIcon string:s.
@@ -2113,6 +2110,7 @@
     "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 25-02-2015 / 17:14:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 15-03-2017 / 12:08:50 / cg"
+    "Modified: / 21-09-2018 / 15:30:07 / Claus Gittinger"
 !
 
 resourceIconForMethod:aMethod