anchor.diff:  on({send, DestPid, Message}, State) ->
       Socket = case socket(State) of
                    notconnected ->
  -                     log:log(info, "Connecting to ~p:~p", [dest_ip(State), dest_port(State)]),
  +                     log:log(info, "Connecting to ~.0p:~.0p", [dest_ip(State), dest_port(State)]),
                        new_connection(dest_ip(State),
                                       dest_port(State),
                                       local_listen_port(State));
  
positive.code:     NewSocket =
          case gen_tcp:send(Socket, BinaryMessage) of
              ok ->
                  ?TRACE("~p Sent message ~p~n",
                         [pid_groups:my_pidname(), Message]),
                  ?LOG_MESSAGE(Message, byte_size(BinaryMessage)),
                  Socket;
  
negative.code:                 inet:setopts(Socket, [{active, once}]),
                  State;
              Unknown ->
                  log:log(warn,"[ CC ] unknown message ~.0p", [Unknown]),
                  inet:setopts(Socket, [{active, once}]),
                  State
      end,
  