anchor.diff:  %%--------------------------------------------------------------------
   get_approximate_msgsize(Request) when is_record(Request, request) ->
       BinLine1 = list_to_binary([Request#request.method, " ", sipurl:print(Request#request.uri), " SIP/2.0"]),
  -    BinMsg = binary_make_message(BinLine1, Request#request.header, list_to_binary(Request#request.body)),
  +    BinMsg = binary_make_message(BinLine1, Request#request.header, Request#request.body),
       ViaLen = 92 + length(siprequest:myhostname()),
       %% The size is _approximate_. The exact size cannot be calculated here
       %% since it is dependent on the right Request-URI and length of the final
  
positive.code: 
      %% test make_response/7
      io:format("test: make_response/7 - 2.1~n"),
      Response2 = make_response(486, "_BUSY_", "", [{"Extra-Header", ["test"]}], ["test=true"],
  			      tls6, #request{header=ReqHeader}),
  
      %% basic response record check
      io:format("test: make_response/7 - 2.2~n"),
      #response{status=486, reason="_BUSY_", body=""} = Response2,
  
      %% Timestamp NOT present in 486 Busy Here
      io:format("test: make_response/7 - 2.3~n"),
  
negative.code: %% Returns : NewRequest = request record()
  %%--------------------------------------------------------------------
  set_response_body(Response, Body) when is_record(Response, response), is_binary(Body) ->
      ILen = size(Body),
      Len = integer_to_list(ILen),
      NewHeader = keylist:set("Content-Length", [Len], Response#response.header),
      Response#response{header=NewHeader, body=Body};
  set_response_body(Response, Body) when is_record(Response, response), is_list(Body) ->
      set_response_body(Response, list_to_binary(Body)).
  
  
  %%====================================================================
  %% Test functions
  %%====================================================================
  
  %%--------------------------------------------------------------------
  %% Function: test()
  