anchor.diff:  					Contentlen = <<"Content-length: ", (tobin(iolist_size(Body1)))/binary,"\r\n">>
   			end
   	end,
  -	IOHeaders1 = [[tobin(K), ": ", tobin(V),<<"\r\n">>] || {K,V} <- Headers, K /= host],
  +	IOHeaders1 = [[toio(K), ": ", toio(V),<<"\r\n">>] || {K,V} <- Headers, K /= host],
   	case lists:keyfind(host,1,Headers) of
   		{host,Actualhost} ->
   			IOHeaders = [[<<"Host: ">>,Actualhost,<<"\r\n">>]|IOHeaders1];
  
positive.code: tolist(P) when is_integer(P) ->
  	integer_to_list(P);
  tolist(P) when is_float(P) ->
  	bmochinum:digits(P);
  tolist(P) when is_list(P) ->
  	P.
  
  tobin(<<_/binary>> = P) ->
  	P;
  
negative.code: tobin(P) when is_integer(P) ->
  	integer_to_binary(P);
  tobin(P) when is_float(P) ->
  	float_to_binary(P,[{decimals,6},compact]).
  
  toatom(P) when is_binary(P) ->
  	binary_to_atom(P,latin1);
  