anchor.diff:          [] -> ok;
           [Node] ->
               Node1 = Node#node{status = deleted},
  +            ok = dets:insert(all_nodes, Node1),
  +            Node1
  +    end;
  +mark_node(not_found, Id) ->
  +    case dets:lookup(all_nodes, Id) of
  +        [] -> ok;
  +        [Node] ->
  +            Node1 = Node#node{status = not_found},
               ok = dets:insert(all_nodes, Node1),
               Node1
       end.
  
positive.code:     end,
      case revision_for_node(CouchUrl, OrgId, NodeId) of
          {ok, Rev} -> {delete_node(CouchUrl, OrgId, NodeId, Rev), now()};
          Error -> {Error, now()}
      end.
  
  
negative.code: summarize_nodes() ->
      Counts = ?fix_table(all_nodes,
                          dets:foldl(
                            fun(Node, {NTotal, NDeleted, NToDelete, NDeleteError,
                                       NNotFound}) ->
                                    {NTotal + 1,
                                     NDeleted + deleted_count(Node),
                                     NToDelete + to_delete_count(Node),
                                     NDeleteError + delete_error_count(Node),
                                     NNotFound + not_found_count(Node)}
                            end, {0, 0, 0, 0, 0}, all_nodes)),
      Labels = [total, deleted, to_delete, delete_error, not_found],
      lists:zip(Labels, tuple_to_list(Counts)).
  
  deleted_count(#node{status = deleted}) -> 1;
  