--- a/Tools__NewSystemBrowser.st	Wed May 04 22:39:15 2016 +0200
+++ b/Tools__NewSystemBrowser.st	Wed May 04 22:46:07 2016 +0200
@@ -23493,12 +23493,12 @@
 !
 
 methodRefersToSelfOrInstanceVariable:aMethod
-    |tree|
+    |parser|
     
-    tree := aMethod parseTree.
-    tree isNil ifTrue:[^ true]. "/ actually: don't know.
-    tree halt.
-    ^ false.
+    parser := Parser parseMethod:aMethod source in:aMethod mclass ignoreErrors:true ignoreWarnings:true.
+    ^ parser usedInstVars notEmptyOrNil
+        or:[ parser messagesSentToSelf notEmptyOrNil
+        or:[ parser messagesSentToSuper notEmptyOrNil]]
 !
 
 selectedClassNameInCodeViewOrNil