anchor.diff:                  report_bundle_error(Options,
                                       {Address, Port, Pid},
                                       Message, socket_closed),
  -                log:log(warn,"[ CC ] sending closed connection", []),
  +                log:log(warn,"[ CC ~p ] sending closed connection", [self()]),
                   gen_tcp:close(Socket),
                   notconnected;
               {error, timeout} ->
  -                log:log(error,"[ CC ] couldn't send to ~.0p:~.0p (~.0p). retrying.",
  -                        [Address, Port, timeout]),
  +                log:log(error,"[ CC ~p ] couldn't send to ~.0p:~.0p (~.0p). retrying.",
  +                        [self(), Address, Port, timeout]),
                   send_internal(Receiver, Pid, Message, Options, BinaryMessage, State);
               {error, Reason} ->
                   report_bundle_error(Options,
                                       {Address, Port, Pid},
                                       Message, Reason),
  -                log:log(error,"[ CC ] couldn't send to ~.0p:~.0p (~.0p). closing connection",
  -                        [Address, Port, Reason]),
  +                log:log(error,"[ CC ~p ] couldn't send to ~.0p:~.0p (~.0p). closing connection",
  +                        [self(), Address, Port, Reason]),
                   gen_tcp:close(Socket),
                   notconnected
       end,
  
positive.code:                 _ = inet:setopts(Socket, [{active, once}]),
                  inc_r_msg_count(State);
              {user_close} ->
                  log:log(warn,"[ CC ] tcp user_close request", []),
                  gen_tcp:close(Socket),
                  set_socket(State, notconnected);
              Unknown ->
                  log:log(warn,"[ CC ] unknown message ~.0p", [Unknown]),
                  %% may fail, when tcp just closed
                  _ = inet:setopts(Socket, [{active, once}]),
                  State
  
negative.code:             case whereis(Process) of
                  undefined ->
                      log:log(warn,
                              "[ CC ~p ] Cannot accept msg for unknown named"
                                  " process ~p: ~.0p~n", [self(), Process, Message]);
                  PID -> comm:send_local(PID, Message), ok
              end
      end.
  