anchor.diff:      {reply, Obj, State};
   handle_call({put_tag, Name, Commit, Anno, Meta}, _From, {StoreMod}=State) ->
       CommitObj = get_commit(Commit, StoreMod),
  +%    error_logger:warning_msg("put_tag/4 Name=~p, Commit=~p, CommitObj=~p~n", [Name, Commit, CommitObj]),
       Tree = wallaroo_commit:get_tree(CommitObj, StoreMod),
       V = wallaroo_validators:pcompose(wallaby_validators:make_activate_validators(Tree, StoreMod)),
       case V(Tree, StoreMod) of
  
positive.code:     end;
  handle_call({get, What, Name, StartingCommit}, _From, {StoreMod}=State) when ?VALID_ENTITY_KIND(What) ->
      CommitObj = get_commit(StartingCommit, StoreMod),
      Tree = wallaroo_commit:get_tree(CommitObj, StoreMod),
      {reply, get_path(What, Name, Tree, StoreMod), State};
  handle_call({put, What, Name, Value, StartingCommit}, _From, {StoreMod}=State) when ?VALID_ENTITY_KIND(What) ->
      CommitObj = get_commit(StartingCommit, StoreMod),
      Tree = wallaroo_commit:get_tree(CommitObj, StoreMod),
      {reply, put_path(What, Name, Value, Tree, StoreMod, StartingCommit), State};
  handle_call({put, What, Name, Value}, _From, {StoreMod}=State) when ?VALID_ENTITY_KIND(What) ->
  
negative.code:     {reply, StoreMod:branches(), State};
  handle_call({list, Kind, StartingCommit}, _From, {StoreMod}=State) ->
      CommitObj = get_commit(StartingCommit, StoreMod),
  %    error_logger:warning_msg("list/2 StartingCommit=~p, CommitObj=~p~n", [StartingCommit, CommitObj]),
      Tree = wallaroo_commit:get_tree(CommitObj, StoreMod),
      case wallaroo_tree:get_path([xlate_what(Kind)], Tree, StoreMod) of
  	{value, Entities} ->
  