anchor.diff:  %%      will include links to all keys in the bucket, with the property
   %%      "rel=contained".
   produce_bucket_body(RD, Ctx=#ctx{bucket=B, client=C}) ->
  -    SchemaPart = 
  +    SchemaPart =
           case wrq:get_qs_value(?Q_PROPS, RD) of
               ?Q_FALSE -> [];
               _ ->
  
positive.code:                                    RD, Links),
                         Ctx),
              UserMetaRD = case dict:find(?MD_USERMETA, MD) of
                          {ok, UserMeta} -> 
                              lists:foldl(fun({K,V},Acc) ->
                                              wrq:merge_resp_headers([{K,V}],Acc)
                                          end,
  
negative.code:          error -> []
       end,
       "\n",V].
  
  
  %% @spec select_doc(context()) -> {metadata(), value()}|multiple_choices
  %% @doc Selects the "proper" document:
  