anchor.diff:  
       let sourceTokenizer= SourceTokenizer(getDefineSymbols project, document.FileName.FileName)
   
  -    let handleConfigurationChanged(_) =
  -        for doc in IdeApp.Workbench.Documents do
  -            let data = doc.Editor
  -            if data <> null then
  -                // Force Syntax Mode Reparse
  -                if typeof<SyntaxMode>.IsAssignableFrom(data.Document.SyntaxMode.GetType()) then
  -                    let sm = data.Document.SyntaxMode :?> SyntaxMode
  -                    sm.UpdateDocumentHighlighting()
  -                    SyntaxModeService.WaitUpdate(data.Document)
  -                data.Parent.TextViewMargin.PurgeLayoutCache()
  -                doc.ReparseDocument()
  -                data.Parent.QueueDraw()
  +    let handleConfigurationChanged =
  +        EventHandler
  +            (fun o e ->
  +                for doc in IdeApp.Workbench.Documents do
  +                    let data = doc.Editor
  +                    if data <> null then
  +                        // Force Syntax Mode Reparse
  +                        if typeof<SyntaxMode>.IsAssignableFrom(data.Document.SyntaxMode.GetType()) then
  +                            let sm = data.Document.SyntaxMode :?> SyntaxMode
  +                            sm.UpdateDocumentHighlighting()
  +                            SyntaxModeService.WaitUpdate(data.Document)
  +                        data.Parent.TextViewMargin.PurgeLayoutCache()
  +                        doc.ReparseDocument()
  +                        data.Parent.QueueDraw())
   
       let getAndProcessSymbols (pd:ParseAndCheckResults) =
           async {let! symbols = pd.GetAllUsesOfAllSymbolsInFile()
  
positive.code:         this.spans <- baseMode.Spans
          this.matches <- baseMode.Matches
          this.prevMarker <- baseMode.PrevMarker
          this.SemanticRules <-  ResizeArray<_>(baseMode.SemanticRules)
          this.keywordTable <- baseMode.keywordTable
          this.properties <- baseMode.Properties
          this.keywords <- baseMode.keywords
          if IdeApp.Workspace <> null then
              IdeApp.Workspace.ActiveConfigurationChanged.Add handleConfigurationChanged
  
      override this.CreateSpanParser(line, spanStack) =
          let ss =
  
negative.code:                              | _         -> None) 0L
          |> Seq.map (makeChunk line.LineNumber style offset extraColorInfo)
  
      do
          LoggingService.LogDebug ("Creating FSharpSyntaxMode()")
          let provider = ResourceStreamProvider(this.GetType().Assembly, "FSharpSyntaxMode.xml")
          use reader = provider.Open()
          let baseMode = SyntaxMode.Read(reader)
  