anchor.diff:              cancellationToken = cancellationToken,
               computation = async {
   
  -            let doc = async {                    
  +            let parsedDoc = async {                    
                 match tryGetFilePath fileName proj with
                 | Some filePath -> 
                     LoggingService.LogDebug ("FSharpParser: Running ParseAndCheckFileInProject for {0}", shortFilename)
  
positive.code:                   return! ParsedDocument.create(parseOptions, results , defines)
                | None -> return FSharpParsedDocument(fileName, Flags = ParsedDocumentFlags.NonSerializable)} |> Async.RunSynchronously
              
              doc.LastWriteTimeUtc <- try File.GetLastWriteTimeUtc(fileName) with _ -> DateTime.UtcNow
              LoggingService.LogDebug ("FSharpParser: returning ParsedDocument on {0}", shortFilename)
              return doc :> _})
negative.code:         let content = parseOptions.Content
  
          let proj = parseOptions.Project
  
          let doc = MonoDevelop.tryGetVisibleDocument fileName
  
          if doc.IsNone || not (MDLanguageService.SupportedFileName (fileName)) then null else
  
          let shortFilename = Path.GetFileName fileName
          LoggingService.LogDebug ("FSharpParser: Parse starting on {0}", shortFilename)
  