--- a/Tools_MethodList.st	Thu Apr 25 15:10:02 2013 +0200
+++ b/Tools_MethodList.st	Thu Apr 25 15:10:03 2013 +0200
@@ -1583,7 +1583,7 @@
     "/
     (aMethod notNil and:[aMethod isWrapped]) ifTrue:[
         (s endsWith:' !!') ifTrue:[
-            s := s copyWithoutLast:2
+            s := s copyButLast:2
         ].
         aMethod isBreakpointed ifTrue:[
             icn := self stopIcon
@@ -1813,10 +1813,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.85 2013-04-16 18:09:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.86 2013-04-25 13:10:03 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.85 2013-04-16 18:09:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.86 2013-04-25 13:10:03 stefan Exp $'
 ! !