anchor.diff:      end.
   
   is_escaped([$%, H1, H2]) ->
  -	    is_hexdig(H1) or is_hexdig(H2).
  +    is_hexdig(H1) or is_hexdig(H2).
   
   %% 'true' if char is any non-escaped password char
   is_password_without_escape($&) -> true;
  
positive.code:     is_password(Str);
  is_password("+" ++ Str) ->
      is_password(Str);
  is_password("$" ++ Str) ->
      is_password(Str);
  is_password("," ++ Str) ->
      is_password(Str);
  is_password([$%, C2, C3 | Str]) ->
  	     is_escaped([$%, C2, C3]) andalso is_password(Str);
  			 is_password([Char | Str]) ->
  				is_unreserved(Char) andalso is_password(Str);
  			 is_password(_) ->
  				false.
  
  %%--------------------------------------------------------------------
  %% Function: is_user(Str)
  
negative.code:     io:format("test: parse/1 - 9~n"),
      ParsedUrl9 = parse("sip:%3Alice:%3A@[1:1:1:1:2:2:2:2];transp%3b%3Bort=TCP"),
  
      %% Parse url with quoted comma-separated lists as parameters
      ParsedUrl10 = #sipurl{proto = "sip",
  			 user = "alice", pass = none,
  			 host = "example.org", port = none,
  			 param = ["foo=\"bar, baZ\""],
  			 param_pairs = url_param:to_norm(["foo=\"bar, baZ\""])
  			},
      io:format("test: parse/1 - 9~n"),
      ParsedUrl10 = parse("sip:alice@example.org;foo=\"bar, baZ\""),
  
      %% print(URL)
      %%--------------------------------------------------------------------
      %% test host
  