anchor.diff:      case lists:keysearch("Lock-Token", 3, Hs) of
           {value, {_,_,"Lock-Token",_,URL}} ->
               case URL of
  -                %"<opaquelocktoken:"++Token -> string:left(Token,36);
  +                %%"<opaquelocktoken:"++Token -> string:left(Token,36);
                   "<opaquelocktoken:"++Token ->
                       T = parse_locktoken(Token),
                       check_locktoken_format(T),
  
positive.code:     case lists:keysearch("If", 3, Hs) of
          {value, {_,_,"If",_,If}} ->
              List = if_parse(If,untagged),
              %?DEBUG(" ~p",[List]),
              case List of
                  [{_Resource,[{true,state,Locktoken}]}] -> Locktoken;
                  _ -> throw(412)
  
negative.code:         end,
      Req = binary_to_list(A#arg.clidata),
      L = parse_lockinfo(Req),
      %%Id = h_locktoken(A),
      Timeout = h_timeout(A),
      Depth = h_depth(A),
      Id = h_if_refresh(A,Path),
  