anchor.diff:      #eldap_search_result{entries = R,
   			 referrals = Ref}.
   
  -polish_result([H|T]) when record(H, 'SearchResultEntry') ->
  +polish_result([H|T]) when is_record(H, 'SearchResultEntry') ->
       ObjectName = H#'SearchResultEntry'.objectName,
       F = fun({_,A,V}) -> {A,V} end,
       Attrs = lists:map(F, H#'SearchResultEntry'.attributes),
  
positive.code: %%%
  %%%  Returns: ok | {error, Error}
  %%% --------------------------------------------------------------------
  simple_bind(Handle, Dn, Passwd) when pid(Handle)  ->
      send(Handle, {simple_bind, Dn, Passwd}),
      recv(Handle).
  
  
negative.code: %%%        []}}
  %%%
  %%% --------------------------------------------------------------------
  search(Handle, A) when is_pid(Handle), is_record(A, eldap_search) ->
      call_search(Handle, A);
  search(Handle, L) when is_pid(Handle), is_list(L) ->
      case catch parse_search_args(L) of
  	{error, Emsg}                  -> {error, Emsg};
  	A when is_record(A, eldap_search) -> call_search(Handle, A)
      end.
  
  call_search(Handle, A) ->
  