anchor.diff:  
   do_delete_zone(ZoneName) ->
       ZoneNameLabels = dns:dname_to_labels(ZoneName),
  +    ets:delete(?TAB_RELOAD, ZoneName),
       case ets:lookup(?TAB_ZONE, ZoneNameLabels) of
   	[#zone{ref = Ref, serials = Serials, cuts = Cuts}] ->
  +	    ZoneRef = #zone_ref{name = ZoneName, ref = Ref},
  +	    ets:delete(?TAB_TSIG, ZoneRef),
   	    ok = decrement_zone_entry_cuts(ZoneNameLabels),
   	    case Cuts of
   		0 -> ets:delete(?TAB_ZONE, ZoneNameLabels);
  
positive.code:     ?DNSXD_ERR("Stray cast:~n~p~nState:~n~p~n", [Msg, State]),
      {noreply, State}.
  
  handle_info({clean_zone, ZoneName, Ref, Serials}, State) ->
      ok = clean_zone(ZoneName, Ref, Serials),
      {noreply, State};
  handle_info(reload_zones, #state{reload_pid = undefined} = State) ->
      Now = dns:unix_time(),
  
negative.code: 		    || Type <- Types ]
  	  end,
      [#rrmap{sets = Sets}] = ets:lookup(?TAB_RRMAP, SerialRef),
      true = ets:delete(?TAB_RRMAP, SerialRef),
      lists:foreach(Fun, Sets),
      clean_zone(ZoneRef, Serials);
  clean_zone(_ZoneRef, []) -> ok.
  