anchor.diff:  			is_sips_uri([FirstRR])
   		end
   	end,
  -    ResponseContactIsSecure = is_sips_uri(ResponseContact),
  +    ResponseContactIsSecure = is_sips_uri([ResponseContact]),
   
       %% RFC3261 #12.1.1 (UAS behavior) :
       %% If the request that initiated the dialog contained a
  
positive.code: %%--------------------------------------------------------------------
  create_dialog_state_uas_is_secure(Request, []) when is_record(Request, request) ->
      throw({error, response_contact_missing});
  create_dialog_state_uas_is_secure(Request, ResponseContact) when is_record(Request, request),
  								 is_list(ResponseContact) ->
      MustBeSecure =
  	case is_sips_uri(Request#request.uri) of
  	    true ->
  
negative.code:     case contact:parse([Str]) of
  	[C] when is_record(C, contact) ->
  	    is_sips_uri(sipurl:parse(C#contact.urlstr));
  	Other ->
  	    is_sips_uri(Other)
      end;
  is_sips_uri(Other) ->
      Msg = io_lib:format("Unparsable Contact/Record-Route/Request-URI '~p' when creating dialog state",
  			[Other]),
      throw({error, lists:flatten(Msg)}).
  
  
  %%--------------------------------------------------------------------
  