anchor.diff:  
   checkout_ref(Path, Ref, BR) ->
       build_record_message(BR, ["Checking out project ", Ref, " to ", Path]),
  -    git:checkout(Path, Ref).
  +    Resp = git:checkout(Path, Ref),
  +    handle_checkout(Resp, BR).
  +
  +handle_checkout({ok, _Msg}, BR) ->
  +    build_record_message(BR, ["Checkout succeeded!"]),
  +    ok;
  +handle_checkout({_, {_Code, Msg}}, BR) ->
  +    build_record_message(BR, ["Checkout failed! ", Msg]),
  +    error.
   
   build_record_message(BR, Msg) ->
       Filename = filename_from_br(BR),
  
positive.code:     IsDir = filelib:is_dir(Path),
      clone_if_needed(IsDir, GitRepo, Path),
  
      checkout_ref(Path, CommitIsh, BR),
      build_project(Path, BuilderlFile, BR),
  
      ok.
  
  clone_if_needed(false, GitRepo, Path) ->
  
negative.code:     erlang:spawn(builderl, build_proc, [BR]),
      {ok, BuildID}.
  
  build_proc(BR=#buildrecord{id=ID, committish=CommitIsh, repo=GitRepo}) ->
      lager:debug("Commit-ish ~p", [CommitIsh]),
  
      Time = erlang:monotonic_time(seconds),
  