anchor.diff:          Vcs.VcsPull wsDir antho.Vcs mainRepo
   
           let antho = Configuration.LoadAnthology ()
  +
  +        // install sticky repositories as one could have popped up
  +        CloneStickyRepositories wsDir
  +
           let clonedRepos = antho.Repositories |> ClonedRepositories wsDir
           for repo in clonedRepos do
               DisplayHighlight repo.Name.toString
  
positive.code:         let repo = { Name = RepositoryId.from Env.MASTER_REPO; Url = uri; Branch = None }
          VcsClone wsDir vcsType true repo
  
  let Exec cmd master =
      let antho = Configuration.LoadAnthology()
      let wsDir = Env.GetFolder Env.Workspace
  
negative.code:     let hash = Vcs.VcsTip wsDir antho.Vcs mainRepo
      BuildArtifacts.Publish buildnum hash
  
  let CloneStickyRepositories (wsDir : DirectoryInfo) =
      let currDir = System.Environment.CurrentDirectory
      try
          System.Environment.CurrentDirectory <- wsDir.FullName
          let antho = Configuration.LoadAnthology()
          antho.Repositories |> Set.filter (fun x -> x.Sticky)
                             |> Seq.iter (fun x -> VcsClone wsDir antho.Vcs false x.Repository)
      finally
          System.Environment.CurrentDirectory <- currDir
  
  let Checkout (version : BookmarkVersion) =
      // checkout repositories
      DisplayHighlight ".full-build"
  