anchor.diff:    HBQPID = hbq:start(),
     {Config, CMEM, HBQPID}.
   
  -server(Config, CMEM, HBQPID) ->
  +server(Config, CMEM, HBQPID, NextNNr) ->
     receive
       {ClientPID, getmsgid} ->
  -      NNr = cmem:getClientNNr(CMEM, ClientPID),
  -      ClientPID ! {nid, NNr},
  -      server(Config, CMEM, HBQPID);
  +      ClientPID ! {nid, NextNNr},
  +      NewNextNNr = NextNNr + 1,
  +      server(Config, CMEM, HBQPID, NewNextNNr);
       {ClientPID, getmessages} ->
         NNr = cmem:getClientNNr(CMEM, ClientPID),
         HBQPID ! {self(), {request, deliverMSG, NNr, ClientPID}},
  -      server(Config, CMEM, HBQPID);
  +      receive
  +        {reply, SendNNr} ->
  +          NewCMEM = cmem:updateClient(CMEM, ClientPID, SendNNr, serverLog()),
  +          server(Config, NewCMEM, HBQPID, NextNNr)
  +      end;
       {dropmessage, [INNr, Msg, TSclientout]} ->
         HBQPID ! {self(), {request, pushHBQ, [INNr, Msg, TSclientout]}};
       terminate ->
  
positive.code: -module(server).
  -export([start/0, server/3]).
  
  loadConfig() ->
    {ok, Config} = file:consult("./config/server.cfg"),
  
negative.code: start() ->
    {Config, CMEM, HBQPID} = init(),
    {ok, ServerName} = werkzeug:get_config_value(servername, Config),
    ServerPID = spawn(?MODULE, server, [Config, CMEM, HBQPID, 1]),
    register(ServerName, ServerPID),
    werkzeug:logging(serverLog(), lists:concat(["Server: Starttime: ", werkzeug:timeMilliSecond(), " with PID", pid_to_list(ServerPID), "\n"])).
  