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: 		    NewZone = #zone{labels = ZoneNameLabels, cuts = Cuts - 1},
  		    ets:insert(?TAB_ZONE, NewZone)
  	    end,
  	    ?SERVER ! {clean_zone, ZoneName, Ref, Serials},
  	    ok;
  	[] -> ok
      end.
  
  clean_zone(ZoneName, Ref, Serials) ->
      ZoneRef = #zone_ref{name = ZoneName, ref = Ref},
      clean_zone(ZoneRef, Serials).
  
  clean_zone(ZoneRef, [Serial|Serials]) ->
      SerialRef = #serial_ref{zone_ref = ZoneRef, serial = Serial},
  
negative.code: 	    true = ets:insert(?TAB_ZONE, NewZone#zone{cuts = Cuts}),
  	    ok = increment_zone_entry_cut(ZoneNameLabels);
  	[#zone{ref = OldRef, serials = OldSerials, cuts = Cuts}] ->
  	    ok = schedule_clean_zone(ZoneName, OldRef, OldSerials, 1000),
  	    true = ets:insert(?TAB_ZONE, NewZone#zone{cuts = Cuts}),
  	    ok;
  	[] ->
  