anchor.diff:  
   hostent_by_domain(Domain, Type) ->
       ?dbg("hostent_by_domain: ~p~n", [Domain]),
  -    hostent_by_domain(stripdot(Domain), [], Type).
  -
  -hostent_by_domain(Domain, Aliases, Type) ->
  +    hostent_by_domain(stripdot(Domain), [], [], Type).
  +
  +hostent_by_domain(Domain, Aliases, LAliases, Type) ->
       case lookup_type(Domain, Type) of
   	[] ->
   	    case lookup_cname(Domain) of
   		[] ->  
   		    {error, nxdomain};
   		[CName | _] ->
  -		    case lists:member(CName, [Domain | Aliases]) of
  +		    LDomain = tolower(Domain),
  +		    case lists:member(CName, [LDomain | LAliases]) of
                           true -> 
   			    {error, nxdomain};
                           false ->
  -			    hostent_by_domain(CName, [Domain | Aliases], Type)
  +			    hostent_by_domain(CName, [Domain | Aliases],
  +					      [LDomain | LAliases], Type)
   		    end
   	    end;
   	Addrs ->
  
positive.code: %% lookup and remove old entries
  
  do_lookup_rr(Domain, Class, Type) ->
      match_rr(#dns_rr{domain = Domain, class = Class,type = Type,
  		     cnt = '_', tm = '_', ttl = '_',
  		     bm = '_', func = '_', data = '_'}).
  
  
negative.code:     [RR | filter_rr(RRs, Time)];
  filter_rr([], _Time) ->  [].
  
  %% Lower case the domain name before storage.
  %%
  lower_rr(#dns_rr{domain=Domain}=RR) when is_list(Domain) ->
      RR#dns_rr { domain = tolower(Domain) };
  lower_rr(RR) -> RR.
  
  %%
  %% Case fold upper-case to lower-case according to RFC 4343
  