anchor.diff:  %%%        []}}
   %%%
   %%% --------------------------------------------------------------------
  -search(Handle, A) when pid(Handle), record(A, eldap_search) ->
  +search(Handle, A) when is_pid(Handle), is_record(A, eldap_search) ->
       call_search(Handle, A);
  -search(Handle, L) when pid(Handle), list(L) ->
  +search(Handle, L) when is_pid(Handle), is_list(L) ->
       case catch parse_search_args(L) of
   	{error, Emsg}                  -> {error, Emsg};
  -	A when record(A, eldap_search) -> call_search(Handle, A)
  +	A when is_record(A, eldap_search) -> call_search(Handle, A)
       end.
   
   call_search(Handle, A) ->
  
positive.code: parse_attribute_type([H|_] = Str) when ?IS_DIGIT(H) ->
      parse_oid(Str);
  parse_attribute_type(Str) ->
      error(invalid_attribute_type,Str).
  
  
  
  
negative.code: 
  parse_port(Rest,Sport) ->
      case list_to_integer(Sport) of
  	Port when is_integer(Port) -> Port;
  	_ -> parse_error(parsing_port,Rest)
      end.
  
  parse_host(Rest,Shost) ->
      case catch validate_host(Shost) of
  	{parse_error,Emsg,_} -> parse_error(Emsg,Rest);
  	Host -> Host
      end.
  
  