--- a/Parser.st	Mon Dec 12 13:38:37 2016 +0100
+++ b/Parser.st	Mon Dec 12 15:15:45 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -4239,10 +4241,10 @@
                 Tools::ToDoListBrowser notNil ifTrue:[
                     "/ experimental
                     self
-                        notifyTodo:(selectorSymbol ,' ',err) position:posVector first
+                        notifyTodo:(aSelectorString ,' ',err) position:posVector first
                         className:(self classToCompileFor name) selector:selector
                         severity:#warning priority:#high
-                        equalityParameter:selectorSymbol
+                        equalityParameter:aSelectorString
                         checkAction:[:e |
                             |selClass m|
 
@@ -5418,7 +5420,6 @@
     selector := aParser selector.
 ! !
 
-
 !Parser methodsFor:'obsolete'!
 
 correctByDeleting