anchor.diff:  	    <<CommitNum:160/big-unsigned-integer>> = NewCommit,
   	    NewCommitStr = lists:flatten(io_lib:format("~40.16.0b", [CommitNum])),
   	    NewLocation = io_lib:format("/~s/~s?commit=~s", [PathPart, mochiweb_util:quote_plus(Name), NewCommitStr]),
  -	    % error_logger:info_msg("NewLocation is ~p~n", [NewLocation]),
  +	    ?D_LOG("NewLocation is ~p~n", [NewLocation]),
   	    Redir = wrq:do_redirect(true, wrq:set_resp_header("Location", NewLocation, ReqData)),
   	    {true, Redir, NewCtx};
   	{error, Why} ->
  
positive.code:     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]),
      case {get_starting_commit, Branch, Tag, Commit} of
      	{get_starting_commit, <<>>, <<>>, []} ->
  	    {none, Ctx};
  
negative.code:     lists:flatten(io_lib:format("~40.16.0b", [CommitNum])).
  
  dump_json(Entities, ReqData, Ctx) when is_list(Entities) ->
      ?D_LOG("Entities are ~p~n", [Entities]),
      {mochijson:binary_encode({array, [fix_json(Entity) || Entity <- Entities]}), ReqData, Ctx};
  dump_json({_Kind, _Dict}=Entity, ReqData, Ctx) ->
      ?D_LOG("Entity is ~p~n", [Entity]),
      {mochijson:binary_encode(fix_json(Entity)), ReqData, Ctx}.
  
  jsonify_entry({LVK, Ls}) when LVK =:= memberships; LVK =:= features; LVK =:= features;  LVK =:= includes;  LVK =:= depends;  LVK =:= conflicts; LVK =:= ss_params ->
  