anchor.diff:                   reraise ()
   
   
  -let updateMasterBinaries hash artifactDir =
  +let updateMasterBinaries () =
  +    let antho = Configuration.LoadAnthology ()
  +    let baseline = Configuration.LoadBaseline ()
       let binDir = Env.GetFolder Env.BinOutput
  -    let versionDir = artifactDir |> GetSubDirectory (hash.Version.toString)
  -    let binSourceDir = versionDir |> GetSubDirectory Env.MSBUILD_BIN_OUTPUT
  -    IoHelpers.CopyFolder binSourceDir binDir false
  +    let artifactDir = antho.Artifacts |> DirectoryInfo
  +
  +    let hash = baseline.Bookmarks |> Seq.tryFind (fun x -> x.Repository = antho.MasterRepository.Name)
  +    match hash with
  +    | Some bookmark -> let versionDir = artifactDir |> GetSubDirectory (bookmark.Version.toString)
  +                       let binSourceDir = versionDir |> GetSubDirectory Env.MSBUILD_BIN_OUTPUT
  +                       DisplayHighlight (sprintf "bin %s" bookmark.Version.toString)
  +                       IoHelpers.CopyFolder binSourceDir binDir false
  +    | None -> DisplayHighlight "[WARNING] No reference binaries found"
  +
   
   
   let Checkout (version : BookmarkVersion) =
  
positive.code:                 Vcs.VcsPull wsDir repo
  
      if bin then
          let baseline = Configuration.LoadBaseline ()
          let hash = baseline.Bookmarks |> Seq.find (fun x -> x.Repository = antho.MasterRepository.Name)
          let artifactDir = antho.Artifacts |> DirectoryInfo
          DisplayHighlight (sprintf "bin %s" hash.Version.toString)
          updateMasterBinaries hash artifactDir
  
  
  let Exec cmd =
  
negative.code: 
  
  
  let Create (path : string) (uri : RepositoryUrl) (bin : string) = 
      let wsDir = DirectoryInfo(path)
      wsDir.Create()
  