anchor.diff:  
   /// Make a range from (startLine, startCol) to (endLine, endCol) to select some text
   let makeRange startLine startCol endLine endCol =
  -    mkRange "/tmp.fs" (mkPos startLine startCol) (mkPos endLine endCol)
  +    mkRange "/tmp.fsx" (mkPos startLine startCol) (mkPos endLine endCol)
   
   /// Get first non-whitespace line
   let rec internal getStartLine (lines : _ []) i =
  
positive.code:     else getEndLine lines (i - 1)
  
  let internal isDelimitToken (tok : TokenInformation) =
          tok.CharClass <> TokenCharKind.WhiteSpace && 
          tok.CharClass <> TokenCharKind.LineComment &&
          tok.CharClass <> TokenCharKind.Comment &&
          tok.TokenName <> "STRING_TEXT"
  
  /// Find out the start token
  let rec internal getStartCol (r : range) (tokenizer : LineTokenizer) nstate = 
  
negative.code:         elif r.StartLine = r.EndLine then (sel, NoPatch)
          else (new String(' ', startCol) + sel, NoPatch)
  
      let post =                
          if finish + 1 < s.Length && s.[finish+1] = '\n' then Environment.NewLine + s.[finish+2..] 
          elif finish < s.Length then s.[finish+1..]
          else ""
  
      Debug.WriteLine("pre:\n{0}", pre)
  