anchor.diff:                  Vcs.VcsPull wsDir repo
   
       if bin then
  -        updateMasterBinaries ()
  +        let latestVersionFile = DirectoryInfo(antho.Artifacts) |> GetFile "latest"
  +        let hash = File.ReadAllText(latestVersionFile.FullName)
  +        updateMasterBinaries hash
   
   
   let Init (path : string) (uri : RepositoryUrl) = 
  
positive.code:             Try (fun () -> Vcs.VcsPush wsDir mainRepo)
  
              tmpVersionDir.MoveTo(versionDir.FullName)
          with
              _ -> versionDir.Refresh ()
                   if versionDir.Exists then versionDir.MoveTo(versionDir.FullName + ".failed")
  
negative.code:         | None -> Vcs.VcsCheckout wsDir repo None
  
      // update binaries with observable baseline
      updateMasterBinaries version.toString
  
  let Pull (src : bool) (bin : bool) =
      let antho = Configuration.LoadAnthology ()
  