anchor.diff:          | None -> Vcs.VcsCheckout wsDir repo None
   
       // update binaries with observable baseline
  -    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
  +    updateMasterBinaries ()
   
   let Pull (src : bool) (bin : bool) =
       let antho = Configuration.LoadAnthology ()
  
positive.code:                  reraise ()
  
  
  let updateMasterBinaries hash artifactDir =
      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 Checkout (version : BookmarkVersion) =
  
negative.code:                 Vcs.VcsPull wsDir repo
  
      if bin then
          updateMasterBinaries ()
  
  
  let Init (path : string) (uri : RepositoryUrl) = 
      let wsDir = DirectoryInfo(path)
      wsDir.Create()
      if IsWorkspaceFolder wsDir then 
          printf "[WARNING] Workspace already exists - skipping"
      else
          let vcsType = Vcs.VcsDetermineType uri
          let repo = { Name = RepositoryId.from Env.MASTER_REPO; Url = uri; Vcs=vcsType}
          VcsCloneRepo wsDir true repo
  
      updateMasterBinaries ()
  
  
  let Exec cmd =
  