anchor.diff:      L = lists:map(fun(A) ->
   			  H = string:strip(A,left),
   			  Index = string:chr(H, $=),
  -			  Name = string:substr(H, 1, Index - 1),
  +			  Name = httpd_util:to_lower(string:substr(H, 1, Index - 1)),
   			  Value = string:substr(H, Index + 1),
   			  {Name, unescape(Value)}
   		  end, Param),
       dict:from_list(L).    
   
  +dict_to_param(Dict) ->
  +    list_to_parameters(dict:to_list(Dict)).
  +    
  +list_to_parameters([]) ->
  +    [];
  +list_to_parameters([{Key, Value}]) ->
  +    [Key ++ "=" ++ Value];
  +list_to_parameters([{Key, Value} | Rest]) ->
  +    [Key ++ "=" ++ Value, list_to_parameters(Rest)].
  +    
  +
   httparg(String) ->
       Headers = string:tokens(String, "&"),
       param_to_dict(Headers).
  
positive.code: 		      Protocol ++ " " ++ sipurl:print_hostport(Host, Port) ++ print_parameters(Parameters)
  	      end, Via).
  
  via_params({Protocol, Hostport, Parameters}) ->
      param_to_dict(Parameters).
  
  
negative.code: to_print(To) ->
      name_print(To).
  
  name_print({_, wildcard, Parameters}) ->
      sipurl:print({wildcard, Parameters});
      
  name_print({none, URI}) ->
      sipurl:print(URI);
  
  