anchor.diff:          try
               match (this.Document, line, offset, length, style) with
               | ExcludedCode styleName -> Seq.singleton(Chunk(offset, length, styleName))
  -            | PreProcessorCode _ -> base.GetChunks(style, line, offset, length)
               | OtherCode (_, lineText) when semanticHighlightingEnabled -> 
                   let tokens = getLexedTokens(style, line, offset, lineText)
  -                if (tokens |> Seq.isEmpty || (tokens |> Seq.last).EndOffset < offset + lineText.Length ) then
  +                if (tokens |> List.isEmpty || (tokens |> List.last).EndOffset < offset + lineText.Length ) then
                       base.GetChunks(style, line, offset, length)
                   else
  -                    tokens
  -            | CommentCode styleName -> Seq.singleton(Chunk(offset, length, styleName ))
  +                    tokens |> Seq.ofList
  +            | CommentCode styleName ->
  +                Seq.singleton(Chunk(offset, length, styleName ))
  +            | StringCode styleName ->
  +                Seq.singleton(Chunk(offset, length, styleName ))
               | _ -> base.GetChunks(style, line, offset, length)
           with
               | exn ->
  
positive.code:                         let span = EndIfBlockSpan()
                          if this.CurSpan <> null && typeof<AbstractBlockSpan>.IsAssignableFrom(this.CurSpan.GetType()) then
                              this.FoundSpanEnd.Invoke(this.CurSpan, i, 0)
                          this.FoundSpanBegin.Invoke(span, i + textOffset, 6)
                          this.FoundSpanEnd.Invoke(span, i + textOffset + 6, 0)
                          true
                      elif (this.CurSpan = null || (this.CurSpan <> null && this.CurSpan.Color <> "Excluded Code")) then
                          let spanLength = 
  
negative.code:         let tokens = 
              List.unfold (scanToken tokenizer) 0L
              |> List.map (makeChunk line.LineNumber style offset)
          tokens
  
      let propertyChangedHandler = PropertyService.PropertyChanged.Subscribe handlePropertyChanged
      let documentParsedHandler = document.DocumentParsed.Subscribe handleDocumentParsed
  