anchor.diff:  			 ok -> Val;
   			 {ok, Val1} -> {ok, Val1};
   			 error -> error;
  +			 {error, notfound} -> error;
   			 Other -> {error, Other}
   		     end,
   	    case NewVal of
  
positive.code: 	      end
        end, false, Nodes).
  
  -spec lookup(atom(), any()) -> {ok, any()} | error.
  lookup(Name, Key) ->
      lookup(Name, Key, undefined).
  
  -spec lookup(atom(), any(), read_fun() | undefined) -> {ok, any()} | error.
  lookup(Name, Key, ReadFun) ->
      try ets:lookup(Name, Key) of
  	[{_, Val, _} = Obj] ->
  
negative.code: 	    Val = case ReadFun() of
  		      {ok, Val1} -> {ok, Val1};
  		      error -> error;
  		      {error, notfound} -> error;
  		      Other -> {error, Other}
  		  end,
  	    case Val of
  