anchor.diff:  	case lists:keyfind("content-type", 1, RequestHeaders) of
   		false when Method == "DELETE"; Method == "GET" ->
   			check_accept_header(Module, ModData#mod{data = [{resource, Module} | Data]});
  -		{_, []} when Method == "DELETE"; Method == "GET" ->
  +		{_Other, []} when Method == "DELETE"; Method == "GET" ->
   			check_accept_header(Module, ModData#mod{data = [{resource, Module} | Data]});
  -		{_, ContentType} ->
  +		{_Other, RequestContentType} ->
   			F = fun(AcceptedType) ->
  -					lists:prefix(AcceptedType, ContentType)
  +					lists:prefix(AcceptedType, RequestContentType)
   			end,
   			case lists:any(F, Module:content_types_accepted()) of
   				true ->
   					check_accept_header(Module, ModData#mod{data = [{resource, Module},
  -							{content_type,  ContentType} | Data]});
  +							{content_type,  RequestContentType} | Data]});
   				false ->
   					Problem = #{type => "https://datatracker.ietf.org/doc/html/rfc7231#section-6.5.13",
   							title => "Unsupported Media Type",
   							detail => "The client provided Content-Type which the"
   									" the server does not support.",
   							code => "", status => 415},
  -					{ContentType, ResponseBody} = ocs_rest:format_problem(Problem, RequestHeaders),
  +					{ResponseContentType, ResponseBody} = ocs_rest:format_problem(Problem, RequestHeaders),
   					Size = integer_to_list(iolist_size(ResponseBody)),
  -					ResponseHeaders = [{content_length, Size}, {content_type, ContentType}],
  +					ResponseHeaders = [{content_length, Size}, {content_type, ResponseContentType}],
   					send(ModData, 415, ResponseHeaders, ResponseBody),
   					{proceed, [{response, {already_sent, 415, Size}} | Data]}
   			end;
  
positive.code: check_accept_header(Module,
  		#mod{parsed_header = RequestHeaders, data = Data} = ModData) ->
  	case lists:keyfind("accept", 1, RequestHeaders) of
  		{_, Accept} ->
  			AcceptTypes = string:tokens(Accept, ", "),
  			case lists:member("*/*", AcceptTypes) of
  				false ->
  
negative.code: 									detail => "The client provided an Accept header which is"
  											" missing the required content type.",
  									code => "", status => 415},
  							{ResponseContentType, ResponseBody} = ocs_rest:format_problem(Problem, RequestHeaders),
  							Size = integer_to_list(iolist_size(ResponseBody)),
  							ResponseHeaders = [{content_length, Size}, {content_type, ResponseContentType}],
  							send(ModData, 415, ResponseHeaders, ResponseBody),
  							{proceed, [{response, {already_sent, 415, Size}} | Data]}
  					end;
  