anchor.diff:      end;
   handle_call({get, What, Name, StartingCommit}, _From, {StoreMod}=State) when ?VALID_ENTITY_KIND(What) ->
       CommitObj = get_commit(StartingCommit, StoreMod),
  +%    error_logger:warning_msg("get/3 Name=~p, StartingCommit=~p, CommitObj=~p~n", [Name, StartingCommit, CommitObj]),
       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),
  +%    error_logger:warning_msg("put/4 Name=~p, StartingCommit=~p, CommitObj=~p~n", [Name, StartingCommit, CommitObj]),
       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) ->
  
positive.code:     Result.
  
  init([]) ->
      {ok, {wallaroo_store_ets}};
  init([{storemod, StoreMod}]) ->
      {ok, {StoreMod}}.
  
  %%% API functions
  
  
negative.code: 
  start_link() ->
      error_logger:info_msg("entering WALLAROO start_link/0 ~n", []),
      %% XXX: initialize non-ETS storage here
      wallaroo_store_ets:init([]),
      Result = try 
  		 gen_server:start_link({local, ?SERVER}, ?MODULE, [], [])
  