anchor.diff:              |> Seq.iter (fun reference -> 
                       if not (excludingList.Contains reference.Name) then
                           if isReferenceProject reference then
  -                            getOutputFileFullPaths reference
  -                            |> Option.iter (fun outputFilePaths ->
  -                                match outputFilePaths.TryGetValue(tag) with
  -                                | true, path ->
  -                                    projectRefList.Add(path)
  -                                | _ -> ())
  +                            getActiveOutputFileFullPath reference
  +                            |> Option.iter (fun outputFilePath -> projectRefList.Add(outputFilePath))
                           else
                               let fullPath = reference.Path
                               if File.Exists fullPath then
  
positive.code:             projectFolderScript.ProjectItems.AddFromFile(textFile) |> ignore
              project.Save()
  
      let getProjectOutputs (project: Project) =
          let dict = Dictionary()
          let projectPath = getProjectFolder project
          let outputFileName = project.Properties.Item("OutputFileName").Value.ToString()
          seq {
              for i in 0..project.ConfigurationManager.Count-1 ->
                  project.ConfigurationManager.Item(i + 1)
          }
          |> Seq.iter (fun config ->
                  let outputPath = config.Properties.Item("OutputPath").Value.ToString()
                  let p = Path.Combine(Path.Combine(projectPath, outputPath), outputFileName)
                  dict.Add(config.ConfigurationName, p))
          dict
  
      let getOutputFileFullPaths (reference: Reference) =
          reference.GetType().GetProperty("SourceProject")
          |> Option.ofNull
          |> Option.map (fun sourceProject -> sourceProject.GetValue(reference) :?> Project)
          |> Option.map getProjectOutputs
  
      let generateLoadScriptContent(project: Project, scriptFile: string, tag: string) =
          let projectfolder = Path.Combine(getProjectFolder project, scriptFolderName)
          let load = String.Format("#load @\"{0}\"", Path.Combine(projectfolder, scriptFile))
          let outputs = getProjectOutputs project
          match outputs.TryGetValue(tag) with
          | true, output ->
              let result = String.Format("#r @\"{0}\"\r\n", output)
              String.Format("{0}\r\n{1}", load, result)
          | _ ->
              String.Format("{0}\r\n", load)
  
      let isReferenceProject (reference: Reference) =
  
negative.code: 
      let generateFile (project: Project) =
          Option.ofNull project
          |> Option.iter (fun project ->
              addFileToActiveProject(project, "load-references.fsx", generateFileContent project)
              let content = generateLoadScriptContent(project, "load-references.fsx")
              addFileToActiveProject(project, "load-project.fsx", content))
      
      let getReferences (project: Project) =
          let excludingList = set [| "FSharp.Core"; "mscorlib" |]
  