--- a/Parser.st	Thu Dec 08 10:57:50 2016 +0100
+++ b/Parser.st	Fri Dec 09 13:38:42 2016 +0100
@@ -11034,7 +11034,7 @@
 
 rememberSelectorUsed:sel
     messagesSent isNil ifTrue:[
-        messagesSent := IdentitySet new.
+        messagesSent := Set new.
     ].
     messagesSent add:sel
 !
@@ -11042,10 +11042,14 @@
 rememberSelectorUsed:selectorArg receiver:receiverNode
     |sel|
 
-    "/ cg: thought this was a good idea;
-    "/ but currently breaks changesBrowser.
-    "/ sel := selectorArg asSymbolIfInterned ? selectorArg.
-    sel := selectorArg asSymbol.
+    self isSyntaxHighlighter ifTrue:[
+        sel := selectorArg asSymbolIfInterned ? selectorArg.
+    ] ifFalse:[    
+        "/ cg: thought this was a good idea;
+        "/ but currently breaks changesBrowser.
+        "/ sel := selectorArg asSymbolIfInterned ? selectorArg.
+        sel := selectorArg asSymbol.
+    ].
     self rememberSelectorUsed:sel.
 
     receiverNode isSuper ifTrue:[