--- a/Tools__MethodCategoryList.st	Wed Mar 09 18:15:54 2016 +0100
+++ b/Tools__MethodCategoryList.st	Wed Mar 09 18:16:36 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -1180,15 +1182,15 @@
 !
 
 class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:querySelector
-    "are there any methods in the protocol cat which reference/modify any inst/class variable in variablesToHighLight ?"
+    "Are there any methods in the protocol cat which reference/modify any inst/class variable in variablesToHighLight?"
 
-    |anyVarNameAccessable|
+    |anyVarNameAccessible|
 
-    anyVarNameAccessable := cls allInstVarNames includesAny:variablesToHighLight.
-    anyVarNameAccessable ifFalse:[
-        anyVarNameAccessable := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight.
+    anyVarNameAccessible := cls allInstVarNames includesAny:variablesToHighLight.
+    anyVarNameAccessible ifFalse:[
+        anyVarNameAccessible := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight.
     ].
-    anyVarNameAccessable ifFalse:[
+    anyVarNameAccessible ifFalse:[
         "/ no need to parse
         ^ false
     ].