anchor.diff:      %% out of the request headers
       Metadata = dict:from_list([{<<"content-type">>, CType}]),
       riak_moss_riakc:put_object(KeyID, Bucket, Key, Body, Metadata),
  -    {true, RD, Ctx}.
  +    {true, wrq:set_resp_header("ETag", 
  +      "\"" ++ riak_moss:binary_to_hexlist(crypto:md5(Body)) ++ "\"", RD), Ctx}.
  
positive.code:             {[{"text/plain", produce_body}], RD, Ctx}
      end.
  
  content_types_accepted(RD, Ctx) ->
      case wrq:get_req_header("content-type", RD) of
          undefined ->
              {[{"application/octet-stream", accept_body}], RD, Ctx};
          CType ->
              {[{CType, accept_body}], RD, Ctx}
      end.
  
  -spec produce_body(term(), term()) -> {iolist()|binary(), term(), term()}.
  produce_body(RD, Ctx) ->
      DocCtx = riak_moss_wm_utils:ensure_doc(Ctx),
  
negative.code:          service_available/2,
           forbidden/2,
           content_types_provided/2,
           malformed_request/2,
           produce_body/2,
           allowed_methods/2,
           content_types_accepted/2,
           accept_body/2,
  