anchor.diff:              Reply = toStr(<<Hdr/binary, Headers2/binary, Bdy/binary>>),
               gen_server:reply(From, Reply);
           Html ->
  -            Reply = toStr(<<Headers2/binary, Html/binary>>),
  -            gen_server:reply(From, Reply)
  +            case Headers2 of
  +                <<"\r\n">> ->
  +                    Reply = toStr(<<Html/binary>>),
  +                    gen_server:reply(From, Reply);
  +                _ ->
  +                    Reply = toStr(<<Headers2/binary, Html/binary>>),
  +                    gen_server:reply(From, Reply)
  +            end
       end.
   
   splitHdr(Html) ->
  
positive.code: %%--------------------------------------------------------------------
  webProxyCall(Pid, Headers, Message, Timeout, From) ->
      HtmlPage = apply(ePeer, webProxyCall, [Pid, Message, Timeout], ""),
      Headers2 = toBinary(Headers),
      case iolist_to_binary(HtmlPage) of
          <<"location:", Rest/binary>> ->
              {Hdr, Bdy} = splitHdr(<<"location:", Rest/binary>>),
  
negative.code: splitHdr(<<Char:8, Rest/binary>>, SoFar) ->
      splitHdr(Rest, <<SoFar/binary, Char>>).
  
  hdrToBinary("")                          -> <<"\r\n">>;
  hdrToBinary(<<>>)                        -> <<"\r\n">>;
  hdrToBinary(Value) when is_list(Value)   -> iolist_to_binary(Value);
  hdrToBinary(Value) when is_binary(Value) -> Value.
  
  
  %%--------------------------------------------------------------------
  