anchor.diff:      send_bundle_if_ready(NewState);
   
   on({tcp_closed, Socket}, State) ->
  -    log:log(warn,"[ CC ~p ] tcp closed info", [self()]),
  +    log:log(warn,"[ CC ~p (~p) ] tcp closed", [self(), pid_groups:my_pidname()]),
       close_connection(Socket, State);
   
   on({tcp_error, Socket, Reason}, State) ->
  -    % example Reason: etimedout, ehostunreach 
  -    log:log(warn,"[ CC ~p ] tcp_error: ~p", [self(), Reason]),
  +    % example Reason: etimedout, ehostunreach
  +    log:log(warn,"[ CC ~p (~p) ] tcp error: ~p", [self(), pid_groups:my_pidname(), Reason]),
       %% may fail, when tcp just closed
       _ = inet:setopts(Socket, [{active, once}]),
       send_bundle_if_ready(State);
  
positive.code:                     Socket;
                  {error, Reason} ->
                      % note: this should not occur since the socket was just created with 'ok'
                      log:log(error,"[ CC ~p ] reconnect to ~.0p because socket is ~.0p",
                              [self(), Address, Reason]),
                      gen_tcp:close(Socket),
                      new_connection(Address, Port, MyPort, Channel)
              end;
          {error, Reason} ->
              log:log(info,"[ CC ~p ] couldn't connect to ~.0p:~.0p (~.0p)",
                      [self(), Address, Port, Reason]),
              fail
      end.
  
  
negative.code:             case whereis(Process) of
                  undefined ->
                      log:log(warn,
                              "[ CC ~p (~p) ] Cannot accept msg for unknown named"
                                  " process ~p: ~.0p~n",
                              [self(), pid_groups:my_pidname(), Process, Message]);
                  PID -> comm:send_local(PID, Message), ok
              end
      end.
  