anchor.diff:  
       let getActiveProject() =
           let dte = dte2 :?> DTE
  -        dte.ActiveSolutionProjects :?> obj[]
  +        dte.ActiveSolutionProjects :?> obj []
           |> Seq.tryHead
           |> Option.map (fun o -> o :?> Project)
   
  
positive.code:             |> 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)
                                  | _ -> ())
                          else
                              let fullPath = reference.Path
                              if File.Exists fullPath then
  
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" |]
  