anchor.diff:  	lists:foldl(
   	  fun(CollectionURL, Entries) ->
   		  io:format("storage:get_entries_by_feed_url(~s)~n",[CollectionURL]),
  -		  storage:get_entries_by_feed_url(CollectionURL) ++ Entries
  +		  Entries1 = storage:get_entries_by_feed_url(CollectionURL),
  +		  [{CollectionURL, Entry}
  +		   || Entry <- Entries1] ++ Entries
   	  end, [], CollectionURLs),
       
  -    Entries2 = lists:reverse(lists:sort(fun compare_entries/2, Entries)),
  +    Entries2 = lists:reverse(lists:sort(fun({_, E1}, {_, E2}) ->
  +						compare_entries(E1, E2)
  +					end, Entries)),
       {Entries3, _} = util:split(Max, Entries2),
  -    io:format("~p entries for ~p~n",[length(Entries3), Collection]),
       {tree, xml_writer:to_string({"items", [],
  -				 [entry_to_xml(Entry)
  -				  || Entry <- Entries3]})}.
  +				 [entry_to_xml(URL, Entry)
  +				  || {URL, Entry} <- Entries3]})}.
   
   xslt_feed_items(URL) ->
       xslt_feed_items(URL, 23).
  
positive.code:      el_for_val("description", Feed#feed.description)
      }.
  
  entry_to_xml(Entry) ->
      {"item", [],
       el_for_val("id", Entry#entry.id) ++
       el_for_val("date", Entry#entry.date) ++
       el_for_val("title", Entry#entry.title) ++
  
negative.code:     {Entries3, _} = util:split(Max, Entries2),
      io:format("~p entries for ~p~n",[length(Entries3), URL]),
      {tree, xml_writer:to_string({"items", [],
  				 [entry_to_xml(URL, Entry)
  				  || Entry <- Entries3]})}.
  
  compare_entries(#entry{date = Date1}, #entry{date = Date2}) ->
  