anchor.diff:              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")
  
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:                 Vcs.VcsPull wsDir repo
  
      if bin then
          let latestVersionFile = DirectoryInfo(antho.Artifacts) |> GetFile "latest"
          let hash = File.ReadAllText(latestVersionFile.FullName)
          updateMasterBinaries hash
  
  
  let Init (path : string) (uri : RepositoryUrl) = 
  