anchor.diff:      {reply, Port, State};
   
   handle_call({call, Message, Timeout}, From, State) ->
  +    SessionId = getSessionId(Message),
  +    Headers   = getHeaders(SessionId, State),
       case proxyCall(Message, State) of
           {false, State2 = #state{user = User}} ->
               case userOK(User, Message) of
                   true ->
                       handle_call(Message, From, State2);
                   false ->
  -                    {reply, State#state.headers, State}
  +                    {reply, Headers, State}
               end;
           {true, Pid, State2} ->
  +            Headers2 = getHeaders(SessionId, State2),
               spawn(?MODULE, webProxyCall,
  -                  [Pid, State2#state.headers, Message, Timeout, From]),
  +                  [Pid, Headers2, Message, Timeout, From]),
               {noreply, State2};
           {true, Pid, Msg2, State2} ->
  +            Headers2 = getHeaders(SessionId, State2),
               spawn(?MODULE, webProxyCall,
  -                  [Pid, State2#state.headers, Msg2, Timeout, From]),
  +                  [Pid, Headers2, Msg2, Timeout, From]),
               {noreply, State2}
       end;
   
  
positive.code:                             _ ->
                                  setCookie("eWebProxy", User)
                          end,
                      {true, Pid, State#state{headers = Headers}}
              end;
          _ ->
              Headers1 = removeCookieIfPresent("eWebToken", Env),
              Headers2 = removeCookieIfPresent("eWebProxy", Env, Headers1),
              {false, State#state{headers = Headers2}}
      end;
  proxyCall(Msg = {_Msg, _SessionId, Env, _Input}, State) ->
      case getCookie("eWebProxy", Env) of
          undefined ->
              {false, State#state{headers = ""}};
          User ->
              case getPeer(User) of
                  undefined ->
                      Headers1 = removeCookie("eWebToken"),
                      Headers2 = removeCookie("eWebProxy", Headers1),
                      {false, State#state{headers = Headers2}};
                  Pid ->
                      Token = getCookie("eWebToken", Env),
                      Headers =
  
negative.code:                   eHtml:makeHtmlTaskCSS(ETodo),
                    eHtml:pageFooter()],
      {reply, HtmlPage, State};
  handle_call({show, SessionId, Env, Input}, _From,
              State = #state{user    = User,
                             headers = SessionHdrList}) ->
      Headers    = getHeaders(SessionId, State),
      {_, WUser} = lists:keyfind(remote_user, 1, Env),
      Dict       = makeDict(Input),
      {ok, List} = find("list",      Dict),
  