--- a/SyntaxHighlighter2.st	Thu Oct 18 15:37:06 2012 +0200
+++ b/SyntaxHighlighter2.st	Fri Oct 19 16:59:02 2012 +0200
@@ -306,9 +306,6 @@
         expr selectorPosition:pos1.
 
         self checkPlausibilityOf:expr from:pos1 to:pos2.
-        parseForCode ifFalse:[
-            self rememberSelectorUsed:sel receiver:receiver
-        ].
         receiver := expr.   "/ for next message
     ].
     ^ receiver
@@ -354,9 +351,6 @@
                 sel := self selectorCheck:tokenName for:realReceiver position:tokenPosition to:tokenEnd.
                 receiver := CascadeNode receiver:receiver selector:sel.
                 receiver lineNumber:tokenLineNr.
-                parseForCode ifFalse:[
-                    self rememberSelectorUsed:sel
-                ].
                 self nextToken.
             ] ifFalse:[
                 (tokenType == #BinaryOperator) ifTrue:[
@@ -371,9 +365,6 @@
                     (arg == #Error) ifTrue:[^ #Error].
                     receiver := CascadeNode receiver:receiver selector:sel arg:arg.
                     receiver lineNumber:lno.
-                    parseForCode ifFalse:[
-                        self rememberSelectorUsed:sel
-                    ].
                 ] ifFalse:[
                     (tokenType == #Keyword) ifTrue:[
                         tokenEnd := tokenPosition + tokenName size - 1.
@@ -405,9 +396,6 @@
 
                         receiver := CascadeNode receiver:receiver selector:sel args:args.
                         receiver lineNumber:lno.
-                        parseForCode ifFalse:[
-                            self rememberSelectorUsed:sel
-                        ].
                     ] ifFalse:[
                         (tokenType == #Error) ifTrue:[^ #Error].
                         self syntaxError:('invalid cascade; ' , tokenType printString , ' unexpected')
@@ -511,9 +499,6 @@
     ].
     expr lineNumber:lno.
     self checkPlausibilityOf:expr from:pos1 to:pos2.
-    parseForCode ifFalse:[
-        self rememberSelectorUsed:sel receiver:receiver
-    ].
 
 "/        (contextToEvaluateIn isNil and:[selfValue isNil]) ifTrue:[    "/ do not check this for doits
 "/            receiver isSuper ifTrue:[
@@ -636,9 +621,6 @@
                 ].
                 expr lineNumber:lNr.
                 self checkPlausibilityOf:expr from:pos to:pos2.
-                parseForCode ifFalse:[
-                    self rememberSelectorUsed:sel receiver:receiver
-                ].
                 ^ expr.
             ].
         ].
@@ -653,9 +635,6 @@
         expr lineNumber:lNr.
 
         self checkPlausibilityOf:expr from:pos to:pos2.
-        parseForCode ifFalse:[
-            self rememberSelectorUsed:sel receiver:receiver
-        ].
 
         receiver := expr.   "/ for next message
     ].
@@ -772,7 +751,7 @@
 !SyntaxHighlighter2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.9 2012-03-23 13:03:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.10 2012-10-19 14:59:02 cg Exp $'
 !
 
 version_SVN