anchor.diff:  open System.Globalization
   
   type FsiReferenceCommand(dte2: DTE2, mcs: OleMenuCommandService, shell: IVsUIShell) =
  +    static let scriptFolderName = "Scripts"
  +    
       let containsReferenceScript (project: Project) = 
  -        project.ProjectItems.Item("Scripts") 
  +        project.ProjectItems.Item(scriptFolderName) 
           |> Option.ofNull
           |> Option.bind (fun scriptItem -> Option.ofNull scriptItem.ProjectItems)
           |> Option.map (fun projectItems -> 
  
positive.code:         |> Option.map getProjectOutputs
  
      let generateLoadScriptContent(project: Project, scriptFile: string, tag: string) =
          let projectfolder = Path.Combine(getProjectFolder project, "Scripts")
          let load = String.Format("#load @\"{0}\"", Path.Combine(projectfolder, scriptFile))
          let outputs = getProjectOutputs project
          match outputs.TryGetValue(tag) with
  
negative.code:                 for i in 0..projectItems.Count-1 ->
                      projectItems.Item(i + 1)
              }
              |> Seq.exists (fun item -> item.Name.Contains("load-references")))
          |> Option.getOrElse false
  
      let getActiveProject() =
          let dte = dte2 :?> DTE
          dte.ActiveSolutionProjects :?> obj[]
          |> Seq.tryHead
          |> Option.map (fun o -> o :?> Project)
  
      let getProjectFolder(project: Project) =
          project.Properties.Item("FullPath").Value.ToString()
  
      let addFileToActiveProject(project: Project, fileName: string, content: string) = 
          if isFSharpProject project then
              // Create Script folder
              let projectFolder = getProjectFolder project
              let scriptFolder = Path.Combine(projectFolder, scriptFolderName)
              if not (Directory.Exists scriptFolder) then
                  Directory.CreateDirectory(scriptFolder) |> ignore
  
  