anchor.diff:        end, To, As).
   
   
  -send_event(Name,Type,Field,Old,New,[S|SList]) when 
  +send_event(Name,Type,Field,Old,New,[S|SList]) when
         S#subscription.name =:= Name; S#subscription.name =:= "" ->
       case S#subscription.fields =:= all orelse
  -	S#subscription.fields =:= Type orelse 
  +	S#subscription.fields =:= Type orelse
   	lists:member(Field,S#subscription.fields) orelse
   	lists:member({Type,Field},S#subscription.fields) of
   	true ->
  
positive.code: 			    []},
  		    from = {self(),make_ref()}
  		  },
      R2 = #request { tmr  = {relative, 1000}, 
  		    call = noop,
  		    from = {self(),make_ref()}
  		  },
  
negative.code: 	MsgList ->
  	    %% FIXME: the messages should be delivered one by one from
  	    %% the driver so the decoding could simplified.
  	    State1 =
  		lists:foldl(
  		  fun(Msg,StateI) ->
  			  ?log(debug, "handle_info: msg=~p", [Msg]),
  