anchor.diff:  
   -spec web_debug_info(State::state()) -> [{_,_}, ...].
   web_debug_info(State) ->
  +    CBModules = state_get(cb_modules, State),
  +    Tombstones = lists:map(fun ({cb_status, CBModule}) -> CBModule end, get_tombstones(State)),
       _KeyValueList =
  -        [{"behaviour module",    ""},
  -         {"msg_queue_len",       length(state_get(msg_queue, State))}].
  +        [{"behaviour module",   ""},
  +         {"msg_queue_len",      length(state_get(msg_queue, State))},
  +         {"status",             state_get(status, State)},
  +         {"registered modules", to_string(CBModules)},
  +         {"tombstones",         to_string(Tombstones)}
  +     ].
   
   
   -spec contains(Element::any(), List::list()) -> boolean().
  
positive.code: 
  
  on_active({remove_all_tombstones}, State) ->
      StateList = ?PDB:tab2list(State),
      Fun = fun ({{cb_status, CBModule}, Status}, Acc) ->
                  if Status =:= tombstone -> [{cb_status, CBModule}|Acc];
                     Status =/= tombstone -> Acc
                  end;
                (_Entry, Acc) -> Acc end,
      TombstoneKeys = lists:foldl(Fun, [], StateList),
      lists:foreach(fun (Key) -> ?PDB:delete(Key, State) end, TombstoneKeys),
      State;
  
  
negative.code:     end,
      state_set(msg_queue, NewMsgQueue, State).
  
  -spec get_tombstones(State::state()) -> list({cb_status, cb_module()}).
  get_tombstones(State) ->
      StateList = ?PDB:tab2list(State),
      Fun = fun ({{cb_status, CBModule}, Status}, Acc) ->
              if Status =:= tombstone -> [{cb_status, CBModule}|Acc];
                 Status =/= tombstone -> Acc
              end;
          (_Entry, Acc) -> Acc end,
      lists:foldl(Fun, [], StateList).
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Misc
  