anchor.diff:  				   h_length = 16,
   				   h_addr_list = [IP6]},
   	    HEnt6_ = HEnt6,
  -	    check_elems([{HEnt6#hostent.h_name,[Name6,FullName6]},
  -			 {HEnt6#hostent.h_aliases,[[],Aliases6]}]),
  +	    check_elems(
  +	      [{HEnt6#hostent.h_name,[Name6,FullName6]},
  +	       {HEnt6#hostent.h_aliases,[[],Aliases6,tl(Aliases6)]}]),
   
   	    {_DName6, _DFullName6, DIPStr6, DIP6, _} =
   		ct:get_config(test_dummy_ipv6_host),
  
positive.code: 
      HEnt_ = HEnt,
      check_elems([{HEnt#hostent.h_name,[Name,FullName]},
  		 {HEnt#hostent.h_aliases,[[],Aliases]}]),
      {ok,HEntF} = inet:gethostbyname(FullName),
      HEntF_ = HEntF#hostent{h_name = FullName,
  			   h_addrtype = inet,
  			   h_length = 4,
  			   h_addr_list = [IP]},
      HEntF_ = HEntF,
      check_elems([{HEnt#hostent.h_aliases,[[],Aliases]}]),
      %%
      FullNameU = toupper(FullName),
      {ok,HEntU} = inet:gethostbyname(FullNameU),
  
negative.code:             ok;
          _ ->
              io:format("alias list: ~p", [HEnt#hostent.h_aliases]),
              io:format(
  	      "check alias list: ~p", [[Aliases,tl(Aliases),[Rname]]]),
              io:format("name: ~p", [HEnt#hostent.h_name]),
              io:format("check name: ~p", [[Name,FullName]]),
              check_elems(
  	      [{HEnt#hostent.h_name,[Name,FullName]},
  	       {HEnt#hostent.h_aliases,[[],Aliases,tl(Aliases),[Rname]]}])
      end,
  
      {_DName, _DFullName, DIPStr, DIP, _, _, _} = ct:get_config(test_dummy_host),
  