anchor.diff:          | None -> Vcs.VcsCheckout wsDir repo None
   
       // update binaries with observable baseline
  -    updateMasterBinaries ()
  +    updateMasterBinaries version.toString
   
   let Pull (src : bool) (bin : bool) =
       let antho = Configuration.LoadAnthology ()
  
positive.code:     printfn "[version] %s" hash
  
  
  let updateMasterBinaries () =
      let antho = Configuration.LoadAnthology ()
      let artifactDir = antho.Artifacts |> DirectoryInfo
  
      let wsDir = Env.GetFolder Env.Workspace
      let mainRepo = antho.MasterRepository
      let hash = Vcs.VcsTip wsDir mainRepo
      let versionDir = artifactDir |> GetSubDirectory hash
      if versionDir.Exists then
          let sourceBinDir = versionDir |> GetSubDirectory Env.PUBLISH_BIN_FOLDER
  
negative.code:             Try (fun () -> Vcs.VcsPush wsDir mainRepo)
  
              tmpVersionDir.MoveTo(versionDir.FullName)
  
              let latestVersionFile = DirectoryInfo(antho.Artifacts) |> GetFile "latest"
              File.WriteAllText(latestVersionFile.FullName, hash)
          with
              _ -> versionDir.Refresh ()
                   if versionDir.Exists then versionDir.MoveTo(versionDir.FullName + ".failed")
  