anchor.diff:      case mnesia:transaction(F) of
   	{atomic, {wait, Result}} ->
   	    receive
  -		{scraped, UrlId, Result} ->
  -		    Result
  +		{scraped, UrlId, NewResult} ->
  +		    NewResult
   	    after ?TIMEOUT * 1000 ->
   		    error_logger:error_msg("Waiting for ~p timed out~n", [UrlId]),
   		    Result
  
positive.code: 			mnesia:write(#scrape{worker = Pid,
  					     url_id = UrlId,
  					     last_try = Now,
  					     waiters = [self()]}),
  			{wait, timeout};
  		    [#scrape{last_reply = LastReply,
  			     worker = Worker,
  
negative.code: 		    when LastReply =< Now - ?TTL ->
  			S2 = if
  				 is_pid(Worker) ->
  				     S#scrape{waiters = [I | Waiters]};
  				 true ->
  				     Pid = spawn_worker(ScrapeURL, Id),
  				     S#scrape{worker = Pid,
  					      last_try = Now,
  					      waiters = [I | Waiters]}
  			     end,
  			mnesia:write(S2),
  			{wait, Result};
  