anchor.diff:      S = Data#eldap.fd,
       Id = bump_id(Data),
       log2(Data, "modify request = ~p~n", [Req]),
  -    Resp = request(S, Id, {modifyRequest, Req}),
  +    Resp = request(Data#eldap.socketmodule, S, Id, {modifyRequest, Req}),
       log2(Data, "modify reply = ~p~n", [Resp]),    
       check_reply(Data#eldap{id = Id}, Resp, modifyResponse).
   
  
positive.code: 	    log2(Data, "search reply = searchResDone ~n", []),    
  	    {ok,Acc,Ref,Data};
  	{'searchResEntry',R} when record(R,'SearchResultEntry') ->
  	    Resp = recv_response(S),
  	    log2(Data, "search reply = ~p~n", [Resp]),    
  	    collect_search_responses(Data, S, ID, Resp, [R|Acc], Ref);
  	{'searchResRef',R} ->
  	    %% At the moment we don't do anyting sensible here since
  	    %% I haven't been able to trigger the server to generate
  	    %% a response like this.
  	    Resp = recv_response(S),
  	    log2(Data, "search reply = ~p~n", [Resp]),    
  	    collect_search_responses(Data, S, ID, Resp, Acc, [R|Ref]);
  	Else ->
  
negative.code: 			 name           = Data#eldap.rootdn,  
  			 authentication = {simple, Data#eldap.passwd}},
      log2(Data, "bind request = ~p~n", [Req]),
      Reply = request(Data#eldap.socketmodule, Data#eldap.fd, Data#eldap.id, {bindRequest, Req}),
      log2(Data, "bind reply = ~p~n", [Reply]),    
      exec_simple_bind_reply(Data, Reply).
  
  