--- a/Parser.st	Wed Aug 30 16:03:49 2017 +0200
+++ b/Parser.st	Wed Aug 30 22:38:37 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -5434,6 +5432,7 @@
     selector := aParser selector.
 ! !
 
+
 !Parser methodsFor:'obsolete'!
 
 correctByDeleting
@@ -10780,6 +10779,12 @@
     "Modified: 19.6.1997 / 17:54:38 / cg"
 !
 
+sendsSelector:selectorString
+    ^ (messagesSent ? #()) includes:selectorString
+
+    "Created: / 30-08-2017 / 16:01:03 / cg"
+!
+
 usedClassVars
     "return a collection with classvariablenames refd by method (valid after parsing)"
 
@@ -11102,7 +11107,10 @@
         "/ cg: thought this was a good idea;
         "/ but currently breaks changesBrowser.
         "/ sel := selectorArg asSymbolIfInterned ? selectorArg.
-        sel := selectorArg asSymbol.
+        
+        "/ mhm - need to fix changesBrowser,
+        "/ because otherwise, the selectorcheck fails.
+        sel := selectorArg "asSymbol".
     ].
     self rememberSelectorUsed:sel.
 
@@ -11114,7 +11122,7 @@
         ].
     ].
 
-    "Modified (format): / 30-07-2013 / 15:51:56 / cg"
+    "Modified: / 30-08-2017 / 15:54:26 / cg"
 !
 
 rememberSelectorUsed:selectorArg receiver:receiverNode args:args
@@ -11169,16 +11177,20 @@
 
 rememberSelectorUsedInSelfSend:sel
     messagesSentToSelf isNil ifTrue:[
-        messagesSentToSelf := IdentitySet new.
+        messagesSentToSelf := Set new.
     ].
     messagesSentToSelf add:sel
+
+    "Modified: / 30-08-2017 / 15:51:35 / cg"
 !
 
 rememberSelectorUsedInSuperSend:sel
     messagesSentToSuper isNil ifTrue:[
-        messagesSentToSuper := IdentitySet new.
+        messagesSentToSuper := Set new.
     ].
     messagesSentToSuper add:sel
+
+    "Modified: / 30-08-2017 / 15:51:19 / cg"
 !
 
 rememberSymbolUsed:aSymbol