anchor.diff:  	    Default
       end.
   
  -generic_find(Kind, Name, Commit, State) ->
  -    generic_find(Kind, Name, Commit, State, []).
  -
  -generic_find(Kind, Name, Commit, State, Default) ->
  +generic_find(Kind, Name, Commit, CommitObj, State) ->
  +    generic_find(Kind, Name, Commit, CommitObj, State, []).
  +
  +generic_find(Kind, Name, Commit, CommitObj, State, Default) ->
       case cache_find(Kind, Name, Commit, State) of
   	{value, Config} ->
   	    {value, Config};
   	 find_failed ->
  -	    calc_configs(Commit, State),
  +	    calc_configs(Commit, CommitObj, State),
   	    cache_fetch(Kind, Name, Commit, State, Default)
       end.
  
positive.code:     CommitObj = StoreMod:find_commit(canonicalize_hash(Commit)),
      case CommitObj of
  	{wallaroo_commit, _} ->
  	    generic_find(Kind, Name, CommitObj, State, Default);
  	_ ->
  	    {error, {bad_commit, Commit, CommitObj}}
      end.
  
negative.code: %% interesting_value_edge(X) ->
  %%     interesting_install_edge(X).
  
  calc_configs(Commit, CommitObj, #cstate{re=RE, table=Cache, storage=StoreMod}=State) ->
      Tree = wallaroo_commit:get_tree(CommitObj, StoreMod),
      {Entities, Relationships} = wallaby_graph:extract_graph(Tree, StoreMod),
      Installs = digraph:new([private]),
      [digraph:add_vertex(Installs, Ent) || Ent <- Entities, interesting_install_vertex(Ent)],
  