anchor.diff:  %status(303) -> <<"303 See Other">>;
   %status(304) -> <<"304 Not Modified">>;
   %status(307) -> <<"307 Temporary Redirect">>;
  -encode_status(badarg) -> encode_status(400);
  -encode_status(unauthorized) -> encode_status(401);
  +http_status(badarg) -> 400;
  +http_status(unauthorized) -> 401;
   %status(402) -> <<"402 Payment Required">>;
  -encode_status(forbidden) -> encode_status(403);
  -encode_status(not_found) -> encode_status(404);
  -encode_status(not_allowed)    -> encode_status(405);
  -encode_status(not_acceptable) -> encode_status(406);
  +http_status(forbidden) -> 403;
  +http_status(not_found) -> 404;
  +http_status(enoent)    -> 404;
  +http_status(not_allowed)    -> 405;
  +http_status(not_acceptable) -> 406;
   %status(407) -> <<"407 Proxy Authentication Required">>;
   %status(408) -> <<"408 Request Timeout">>;
  -encode_status(conflict) -> encode_status(409);
  -encode_status(duplicate)-> encode_status(409);
  +http_status(conflict) -> 409;
  +http_status(duplicate)-> 409;
   %status(410) -> <<"410 Gone">>;
   %status(411) -> <<"411 Length Required">>;
   %status(412) -> <<"412 Precondition Failed">>;
   %status(413) -> <<"413 Request Entity Too Large">>;
   %status(414) -> <<"414 Request-URI Too Long">>;
  -encode_status(bad_mime_type) -> encode_status(415);
  +http_status(bad_mime_type) -> 415;
   %status(416) -> <<"416 Requested Range Not Satisfiable">>;
   %status(417) -> <<"417 Expectation Failed">>;
   %status(422) -> <<"422 Unprocessable Entity">>;
  -encode_status(not_implemented) -> encode_status(501);
  +http_status(not_implemented) -> 501;
   %status(502) -> <<"502 Bad Gateway">>;
  -encode_status(not_available) -> encode_status(503);
  +http_status(not_available) -> 503;
   %status(504) -> <<"504 Gateway Timeout">>;
   %status(505) -> <<"505 HTTP Version Not Supported">>.
  -encode_status(_) -> encode_status(500).
  +http_status(_) -> 500.
   
   
   %%%------------------------------------------------------------------
  
positive.code:   ,state/1
    ,version/1
    ,request/1
    ,packets/1
    ,octets/1
    ,decode/1
  
negative.code:    encode(Msg, [Http], S#http{is=header}).
  
  encode_http_response({Status, _}=Msg, S) ->
     Code = http_status(Status),
     Http = iolist_to_binary([encode_version(S#http.version), $ , encode_status(Code), $\r, $\n]),
     encode(Msg, [Http], S#http{is=header, htline=Code});   
  encode_http_response({Status, _, _}=Msg, S) ->
     Code = http_status(Status),
     Http = iolist_to_binary([encode_version(S#http.version), $ , encode_status(Code), $\r, $\n]),
     encode(Msg, [Http], S#http{is=header, htline=Code}).
  
  %%
  encode_header({_, Headers}, Acc, S)
  