anchor.diff:              %% 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,
  +            %%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;
                           _ -> ""
  
positive.code:     Mediatype = case F#file_info.type of
            directory ->
                "httpd/unix-directory";
                %"text/html"; % this should represent the mediatype of a GET on a collection
            _ ->
                Name = R#resource.name,
                Ext = filename:extension(Name),
  
negative.code:             {ok, Dir} = file_do(list_dir,[Path]),
              [ fs_rmrf(filename:join(Path,File)) || File <- Dir ],
              ok = file:del_dir(Path);
              %%file_do(del_dir,[Path]);
          _ ->
              ok = file:delete(Path)
              %%file_do(delete,[Path])
      end.
  
  %% recursive copy, equivalent of cp
  fs_cp(From,To) ->
      %% All checks on existence of the destination have to be done before
      %% so destination should not exist
      {ok, F} = file:read_file_info(From),
      case F#file_info.type of
          directory ->
  