anchor.diff:  data(Socket, Request, State) ->
       %% Already converted to bert format
       ?dbg("data: request: ~w\n", [Request]),
  -    handle_request(Socket, Request, State).
  +    case handle_request(Socket, Request, State) of
  +	{Reply, NewState} -> {reply, Reply, NewState};
  +	Other -> Other
  +    end.
  +	     
   
   
   %%--------------------------------------------------------------------
  
positive.code: callback(Value, State) ->
      case State#state.callback of
  	[] ->
  	    {ok,State};
  	[{service,Service},{mfa,M,F,A}] ->
  	    case string:tokens(binary_to_list(Service), ":") of
  		[Host,PortString] ->
  		    Port = list_to_integer(PortString),
  
negative.code: 
  apply1(M, F, A) ->
      Result = apply(M, F, A),
      ?dbg("apply: result ~p\n", [Result]),
      Reply = {reply, Result},
      Bin =  bert:to_binary(Reply),
      {ok, Bin}.
  