anchor.diff:                               requested_perm='WRITE_ACP',
                                riakc_pid=RiakPid}) ->
       dt_entry(<<"accept_body">>, [], [extract_name(User), Bucket]),
  +    dt_entry_bucket(<<"put_acl">>, [], [extract_name(User), Bucket]),
       Body = binary_to_list(wrq:req_body(RD)),
       case Body of
           [] ->
  
positive.code:                                         ACL,
                                          RiakPid) of
          ok ->
              dt_return(<<"accept_body">>, [200], [extract_name(User)]),
              {{halt, 200}, RD, Ctx};
          {error, Reason} ->
              Code = riak_moss_s3_response:status_code(Reason),
              dt_return(<<"accept_body">>, [Code], [extract_name(User)]),
              riak_moss_s3_response:api_error(Reason, RD, Ctx)
      end;
  accept_body(RD, Ctx=#context{user=User,
  
negative.code:                     ok = riak_cs_stats:update_with_start(bucket_list_keys,
                                                           StartTime),
                      dt_return(<<"to_xml">>, [200], [extract_name(User), Bucket]),
                      dt_return_bucket(<<"list_keys">>, [200], [extract_name(User), Bucket]),
                      X;
                  {error, Reason} ->
                      Code = riak_moss_s3_response:status_code(Reason),
                      X = riak_moss_s3_response:api_error(Reason, RD, Ctx),
                      dt_return(<<"to_xml">>, [Code], [extract_name(User), Bucket]),
                      dt_return_bucket(<<"list_keys">>, [Code], [extract_name(User), Bucket]),
                      X
              end
      end;
  