anchor.diff:     async {
       let fileName = if Path.GetExtension fileName = ".sketchfs" then Path.ChangeExtension (fileName, ".fsx") else fileName
       let opts = x.GetCheckerOptions(fileName, projectFilename, src, files, args)
  -    Debug.WriteLine("Parsing: Get typed parse result, fileName={0}", box fileName)
  +    Debug.WriteLine("LanguageService: Parsing: Get typed parse result, fileName={0}", box fileName)
       // Try to get recent results from the F# service
       match x.TryGetStaleTypedParseResult(fileName, opts, src, stale) with
       | Some _ as results ->
  -        Debug.WriteLine(sprintf "Parsing: using stale results")
  +        Debug.WriteLine(sprintf "LanguageService: Parsing: using stale results")
           return results
       | None -> 
  -        Debug.WriteLine(sprintf "Worker: Not using stale results - trying typecheck with timeout")
  +        Debug.WriteLine(sprintf "LanguageService: Not using stale results - trying typecheck with timeout")
           // If we didn't get a recent set of type checking results, we put in a request and wait for at most 'timeout' for a response
           return mbox.TryPostAndReply((fun reply -> (fileName, src, opts, reply)), timeout = timeout)
      }
  
positive.code:     member x.ParseTree = 
          match infoOpt with
          | Some (_checkResults,parseResults) -> parseResults.ParseTree
          | None -> None
  
      member x.GetExtraColorizations() =
  
negative.code:         // We are in a stand-alone file or we are in a project, but currently editing a script file
          try 
            let fileName = fixFileName(fileName)
            Debug.WriteLine (sprintf "LanguageService: GetScriptCheckerOptions: Creating for stand-alone file or script: '%s'" fileName )
            let opts =
                Async.RunSynchronously (checker.GetProjectOptionsFromScript(fileName, source, fakeDateTimeRepresentingTimeLoaded projFilename),
                                        timeout = ServiceSettings.maximumTimeout)
  