--- a/Tools__MethodCategoryList.st	Sun Mar 03 23:11:15 2019 +0100
+++ b/Tools__MethodCategoryList.st	Sun Mar 03 23:19:51 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -2260,17 +2262,20 @@
 !
 
 who
-    | savedMclass |
-
-    "/ Save mclass here as Method>>who clobbers it!!
-    [
-        savedMclass := mclass.
-        super who
-    ] ensure:[ 
-        mclass := savedMclass
-    ].
+    ^ Method::MethodWhoInfo class:mclass selector:selector.
+"/    | ret savedMclass |
+"/
+"/    "/ Save mclass here as Method>>who clobbers it!!
+"/    [
+"/        savedMclass := mclass.
+"/        ret := super who
+"/    ] ensure:[ 
+"/        mclass := savedMclass
+"/    ].
+"/    ^ ret
 
     "Created: / 01-04-2014 / 12:28:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-03-2019 / 19:56:02 / Claus Gittinger"
 ! !
 
 !MethodCategoryList::MethodStubForTestResult methodsFor:'accessing'!