anchor.diff:          match shell.FindToolWindow(uint32 __VSFINDTOOLWIN.FTW_fForceCreate, fsiWindowGuid) with
           | VSConstants.S_OK, frame ->
               frame.Show() |> ignore
  -            getSelectedProject()
  +            getActiveProject()
               |> Option.iter (fun project ->
                   let references = getReferences project
                   let t = frame.GetType()
  
positive.code:         |> Option.iter (fun outputs -> 
              outputs
              |> Seq.iter (fun (KeyValue(tag, _)) ->
                   let fileName = if tag = "Debug" then "load-refs.fsx" else String.Format("load-refs-{0}.fsx", tag)
                   let content = generateFileContent(project, tag)
                   addFileToActiveProject(project, fileName, content)
                   let content = generateLoadScriptContent(project, fileName, tag)
  
negative.code: open System.Globalization
  
  type FsiReferenceCommand(dte2: DTE2, mcs: OleMenuCommandService, shell: IVsUIShell) =
      static let scriptFolderName = "Scripts"
      
      let containsReferenceScript (project: Project) = 
          project.ProjectItems.Item(scriptFolderName) 
          |> Option.ofNull
          |> Option.bind (fun scriptItem -> Option.ofNull scriptItem.ProjectItems)
          |> Option.map (fun projectItems -> 
  