--- a/Tools__MethodList.st	Tue Feb 03 19:04:18 2015 +0100
+++ b/Tools__MethodList.st	Wed Feb 04 13:19:14 2015 +0100
@@ -1346,11 +1346,11 @@
 
     anyVarNameAccessable := cls allInstVarNames includesAny:variablesToHighLight.
     anyVarNameAccessable ifFalse:[
-	anyVarNameAccessable := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight.
+        anyVarNameAccessable := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight.
     ].
     anyVarNameAccessable ifFalse:[
-	"/ no need to parse
-	^ false
+        "/ no need to parse
+        ^ false
     ].
 
     "/ JV Following code is just very bad. It assumes that method is a Smalltalk method.
@@ -1364,34 +1364,34 @@
     "/ Hack:
 
     mthd programmingLanguage isSmalltalk ifFalse:[
-	^ [
-	    usedVars := mthd perform:querySelector.
-	    usedVars includesAny:variablesToHighLight
-	] on: Error do:[
-	    false
-	]
+        ^ [
+            usedVars := mthd perform:querySelector.
+            usedVars includesAny:variablesToHighLight
+        ] on: Error do:[
+            false
+        ]
     ].
 
     src := mthd source.
     src notNil ifTrue:[
-	"
-	 before doing a slow parse, quickly scan the
-	 methods source for the variables name ...
-	"
-	(variablesToHighLight contains:[:varName | (src findString:varName) ~~ 0]) ifTrue:[
-	    parser := Parser
-			    parseMethod:src
-			    in:cls
-			    ignoreErrors:true
-			    ignoreWarnings:true.
-	    (parser notNil and:[parser ~~ #Error]) ifTrue:[
-		usedVars := parser perform:querySelector.
-		(usedVars includesAny:variablesToHighLight)
-		ifTrue:[
-		    ^  true
-		]
-	    ]
-	]
+        "
+         before doing a slow parse, quickly scan the
+         methods source for the variables name ...
+        "
+        (variablesToHighLight contains:[:varName | src includesString:varName ]) ifTrue:[
+            parser := Parser
+                            parseMethod:src
+                            in:cls
+                            ignoreErrors:true
+                            ignoreWarnings:true.
+            (parser notNil and:[parser ~~ #Error]) ifTrue:[
+                usedVars := parser perform:querySelector.
+                (usedVars includesAny:variablesToHighLight)
+                ifTrue:[
+                    ^  true
+                ]
+            ]
+        ]
     ].
     ^ false
 
@@ -1901,10 +1901,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.110 2014-12-29 11:16:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.111 2015-02-04 12:19:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.110 2014-12-29 11:16:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.111 2015-02-04 12:19:14 cg Exp $'
 ! !