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:     HtmlPage   = [eHtml:pageHeader(User),
                    [eHtml:makeHtmlTaskCSS2(ETodo) || ETodo <- ETodos],
                    eHtml:pageFooter()],
      {reply, Headers ++ HtmlPage, State#state{headers = ""}};
  handle_call({message, _SessionId, _Env, _Input}, _From,
              State = #state{user        = User,
                             users       = Users,
  
negative.code:                    eHtml:createSendMsg("All", lists:delete(User, Users)),
                     eHtml:pageFooter()],
      {reply, HtmlPage, State#state{messages = TopMessages, subscribers = []}};
  handle_call({index, SessionId, _Env, _Input}, _From,
              State = #state{user    = User,
                             headers = SessionHdrList}) ->
      Headers = getHeaders(SessionId, State),
      Flt = [?statusDone],
      HtmlPage = [eHtml:pageHeader(User),
                  eHtml:makeForm(User, ?defTaskList),
                  eHtml:makeTaskList(User, ?defTaskList, Flt, [], undefined),
                  eHtml:pageFooter()],
  
      SessionHdrList2 = keepAliveSessions(SessionHdrList),
      {reply, Headers ++ HtmlPage, State#state{headers = SessionHdrList2}};
  handle_call({showStatus, SessionId, _Env, _Input}, _From,
              State = #state{user    = User,
                             headers = SessionHdrList,
                             status  = SList}) ->
      Headers = getHeaders(SessionId, State),
      {Status, StatusMsg} = getStatus(User, SList),
  
      HtmlPage = eHtml:showStatus(User, Status, StatusMsg),
      SessionHdrList2 = keepAliveSessions(SessionHdrList),
      {reply, Headers ++ HtmlPage, State#state{headers = SessionHdrList2}};
  handle_call({checkStatus, SessionId, _Env, _Input}, _From,
              State = #state{user    = User,
                             headers = SessionHdrList,
                             timers  = Timers,
                             status  = StatusList}) ->
      Headers = getHeaders(SessionId, State),
      Timer    = lists:keyfind(User, 1, Timers),
      {Status, StatusMsg} = getStatus(User, StatusList),
      Seconds  = getSeconds(Timer),
      HtmlPage = "{\"timer\":" ++ integer_to_list(Seconds) ++ ","
          "\"status\":\"" ++ Status ++ "\",\"statusMsg\":\"" ++
          makeHtml(StatusMsg) ++ "\"}",
      SessionHdrList2 = keepAliveSessions(SessionHdrList),
      {reply, Headers ++ HtmlPage, State#state{headers = SessionHdrList2}};
  handle_call({showLoggedWork, SessionId, _Env, Input}, _From,
              State = #state{user = User, headers = SessionHdrList}) ->
      Headers = getHeaders(SessionId, State),
      Dict    = makeDict(Input),
      {ok, Text} = find("search", Dict),
      HtmlPage = doShowLoggedWork(User, default(Text, "")),
      SessionHdrList2 = keepAliveSessions(SessionHdrList),
      {reply, Headers ++ HtmlPage, State#state{headers = SessionHdrList2}};
  handle_call({indexJSON, _SessionId, _Env, _Input}, _From,
              State = #state{user = User}) ->
      Flt = [?statusDone],
  