--- a/Tools__NewSystemBrowser.st Wed May 04 09:23:44 2016 +0200
+++ b/Tools__NewSystemBrowser.st Wed May 04 09:25:26 2016 +0200
@@ -58036,12 +58036,12 @@
"get something about aMethod
to be shown in the info line at the bottom"
- |msg msg2 method|
+ |msg msg2 method wrapper|
method := aMethod.
method isNil ifTrue:[ ^ nil ].
- method wrapper notNil ifTrue:[
- method := method wrapper
+ (wrapper := method wrapper) notNil ifTrue:[
+ method := wrapper
].
method isNil ifTrue:[
^ 'oops - this method is not attached to any class'.