anchor.diff:  check_accept_header(Module,
   		#mod{parsed_header = RequestHeaders, data = Data} = ModData) ->
   	case lists:keyfind("accept", 1, RequestHeaders) of
  -		{_, Accept} ->
  +		{_Other, Accept} ->
   			AcceptTypes = string:tokens(Accept, ", "),
   			case lists:member("*/*", AcceptTypes) of
   				false ->
  
positive.code: 					title => "Bad Request",
  					detail => "The client failed to provide a Content-Type header",
  					code => "", status => 400},
  			{ContentType, ResponseBody} = ocs_rest:format_problem(Problem, RequestHeaders),
  			Size = integer_to_list(iolist_size(ResponseBody)),
  			ResponseHeaders = [{content_length, Size}, {content_type, ContentType}],
  			send(ModData, 415, ResponseHeaders, ResponseBody),
  			{proceed, [{response, {already_sent, 400, Size}} | Data]}
  	end.
  
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;
  