anchor.diff:      %% remove any spaces around Str data in "Contact : ... ,Str, ...."
       Stripped = strip(Str, both, [?CR,?LF,?SP,?HTAB]),
       %% Check for optional display name
  +    %% XXX what if there is a '<' in a quoted display name? Is that valid or invalid?
  +    %% The string:tokens() will fail on it.
       {DisplayName, Rest} =
   	case string:tokens(Stripped, "<") of
   	    [DispName, R] ->
  
positive.code:     end,
  
      %% test contact-parameters without a value
      io:format("test: parse/1 - 15~n"),
      P15 = [#contact{display_name = none,
  		    urlstr = "sip:example.org",
  		    contact_param = contact_param:to_norm([{"foo", none}, {"lr", "true"}, {"bar", none},
  							   {"baz", none}])
  		   }],
      P15 = parse(["sip:example.org;foo;lr=true;bar;baz"]),
  
      %% print/1
      %%--------------------------------------------------------------------
  
negative.code: 		DispNameNoWhiteSpaces = strip(DispName, both, [?CR,?LF,?SP,?HTAB]),
  		StrippedName =
  		    case DispNameNoWhiteSpaces of
  			[34 | _] ->	%% 34 is "
  			    %% quoted display name
  			    %% XXX remove the quotes but leave any escaped quotes untouched!
  			    string:strip(DispNameNoWhiteSpaces, both, 34);	%% 34 is "
  			_ ->
  			    %% not quoted - check if it is a token
  			    true = sipparse_util:is_token(DispNameNoWhiteSpaces),
  			    DispNameNoWhiteSpaces
  		    end,
  		{StrippedName, R};
  	    [R] ->
  		{none, R}
  	end,
      %% get the xxx contents of "<xxx>"
      [AddrSpec] = string:tokens(Rest, ">"),
      SipUrl = AddrSpec, %% sipurl:parse(AddrSpec),
      {DisplayName, SipUrl}.
  
  
  parse_addr_spec(Str) ->
  