anchor.diff:  -define(SERVER, ?MODULE).
   
   start_link() ->
  -    wallaroo_store_ets:init(),
  -    gen_server:start_link(?MODULE, [], []).
  +    error_logger:info_msg("entering WALLAROO start_link/0 ~n", []),
  +    wallaroo_store_ets:init([]),
  +    Result = try 
  +		 gen_server:start_link({local, ?SERVER}, ?MODULE, [], [])
  +	     catch
  +		 Kind:Reason -> error_logger:info_msg("failure! ~p:~p~n", [Kind, Reason]), {failure_with, {Kind, Reason}}
  +	     end,
  +    error_logger:info_msg("returning ~p from WALLAROO start_link/0 ~n", [Result]),
  +    Result.
   
   init([]) ->
       {ok, {wallaroo_store_ets}}.
  
positive.code: 
  
  get_path(What, Name, Tree, StoreMod) ->
      Path = [What ++ "s", Name],
      wallaroo_tree:get_path(Path, Tree, StoreMod).
  
  put_path(What, Name, Value, Tree, StoreMod) ->
      Path = [What ++ "s", Name],
      wallaroo_tree:put_path(Path, Value, Tree, StoreMod).
  
  get_commit(SHA, StoreMod) ->
      StoreMod:find_commit(SHA).
  
  
negative.code:     end.
  
  get_node(Name, Commit) ->
      gen_server:call(wallaroo,  {get, node, Name, canonicalize_hash(Commit)}).
  
  get_group(Name) ->
      case get_tag("current") of
  