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:                 Vcs.VcsPull wsDir repo
  
      if bin then
          updateMasterBinaries ()
  
  
  let Init (path : string) (uri : RepositoryUrl) = 
  
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")
  