anchor.diff:      Tag=list_to_binary(mochiweb_util:unquote(wrq:get_qs_value("tag", "", ReqData))),
       Commit=mochiweb_util:unquote(wrq:get_qs_value("commit", "", ReqData)),
       Branch=list_to_binary(mochiweb_util:unquote(wrq:get_qs_value("branch", "", ReqData))),
  -    % error_logger:warning_msg("wallaroo_web_common:get_starting_commit/2 Tag=~p, Commit=~p, Branch=~p~n", [Tag, Commit, Branch]),
  +    ?D_LOG("wallaroo_web_common:get_starting_commit/2 Tag=~p, Commit=~p, Branch=~p~n", [Tag, Commit, Branch]),
       case {get_starting_commit, Branch, Tag, Commit} of
       	{get_starting_commit, <<>>, <<>>, []} ->
   	    {none, Ctx};
  
positive.code:     SHA = ensure_str_format(orddict:fetch(commit, Data), list),
      Meta = atomize_meta(orddict_default_fetch(meta, Data, [])),
      Annotation = orddict_default_fetch(annotation, Data, []),
      % error_logger:warning_msg("about to convert JSON to a tag: Name=~p, SHA=~p, Meta=~p, Annotation=~p", [Name, SHA, Meta, Annotation]),
      case {tag_fjh, wallaroo:put_tag(Name, SHA, Annotation, Meta)} of
  	{tag_fjh, {fail, _}=Failure} ->
  	    ResponseBody = 
  
negative.code:     generic_find_nc(FindFunc, fun dump_json/3, Name, ReqData, Ctx).
  
  generic_find_nc(FindFunc, DumpFunc, Name, ReqData, Ctx) ->
      ?D_LOG("in generic_find_nc and name is ~p~n", [Name]),
      case FindFunc(Name) of 
  	Fail when Fail =:= none orelse Fail =:= find_failed ->
  	    {{halt, 404}, ReqData, Ctx};
  