anchor.diff:  		end
   	end),
   	ok = case watchers(Id) of
  -		[] -> delete(Id);
  +		[] -> {ok, _} = timer:apply_after(10000, fingwb_whiteboard, delete, [Id]), ok;
   		_  -> ok
   	end,
   	Result.
  
positive.code: 
  delete(Id) when is_binary(Id) ->
  	{atomic, Result} = mnesia:transaction(fun()->
  		[ok = mnesia:delete_object(Row) || Row <- mnesia:match_object(#archive{board_id=Id, _='_'})],
  		ok = mnesia:delete({board, Id})
  	end),
  	Result.
  
  
negative.code: -module(fingwb_whiteboard).
  
  -export([init/1, create/0, delete/1, watch/1, unWatch/1, publish/2, notify/2, watchers/1, readArchive/1]).
  
  -record(board, {
  	id,
  