anchor.diff:  make_3261_token([]) ->
       [];
   make_3261_token([H | T]) when H >= $a, H =< $z ->
  -    [H|make_3261_token(T)];
  +    [H | make_3261_token(T)];
   make_3261_token([H | T]) when H >= $A, H =< $Z ->
  -    [H|make_3261_token(T)];
  +    %% tokens are case-insensitive, lowercase the ones we generate
  +    [H + ($a - $A) | make_3261_token(T)];
   make_3261_token([H | T]) when H >= $0, H =< $9 ->
  -    [H|make_3261_token(T)];
  +    [H | make_3261_token(T)];
   make_3261_token([H | T]) when H == $-; H == $.; H == $!; H == $%;
   H == $*; H == $_; H == $+; H == $`; H == $\'; H == $~ ->
  -    [H|make_3261_token(T)];
  +    [H | make_3261_token(T)];
   make_3261_token([_H | T]) ->
  -    [$_|make_3261_token(T)].
  +    [$_ | make_3261_token(T)].
   
   %%--------------------------------------------------------------------
   %% Function: generate_branch()
  
positive.code:     %% get_loop_cookie(ReqHeader, URI, Proto
      %%--------------------------------------------------------------------
      autotest:mark(?LINE, "get_loop_cookie/3 - 1"),
      "JYJPsr4IqjymexLGUB58yg" = get_loop_cookie(ReqHeader, sipurl:parse("sip:test@example.org"), tcp),
  
  
      %% make_response(Status, Reason, Body, ExtraHeaders, Parameters, Proto, Request)
  
negative.code:     %%--------------------------------------------------------------------
      %% test that our make_3261_token produces the expected results
      autotest:mark(?LINE, "make_3261_token/1 - 1"),
      "abcdexyz-.!%*_+`'~123_" = make_3261_token("abcdeXYZ-.!%*_+`'~123@"),
  
      autotest:mark(?LINE, "make_base64_md5_token/1 - 1"),
      "wd_cg1j2cfuav0nwdjlxtq" = make_base64_md5_token("abcdeXYZ123-.!%*_+`'~123@"),
  
  
      %% create_via(Proto, Parameters)
  