anchor.diff:      case lists:keysearch("If", 3, Hs) of
           {value, {_,_,"If",_,If}} ->
               List = if_parse(If,untagged),
  -            %?DEBUG(" ~p",[List]),
  +            %%?DEBUG(" ~p",[List]),
               case List of
                   [{_Resource,[{true,state,Locktoken}]}] -> Locktoken;
                   _ -> throw(412)
  
positive.code:             %% check on supported namespaces:
              %% - http://www.w3.org/TR/RC-xml-names#dt-prefix
              %% - although strict, not very forgiving towards clients
              %NS = H#xmlElement.namespace,
              %case NS#xmlNamespace.default of
              %    "" ->
              %        throw(400);
              %    _ -> ok
              %end,
              Value = case H#xmlElement.content of
                          [C] when is_record(C,xmlText) -> C#xmlText.value;
                          _ -> ""
  
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),
  