anchor.diff:      NewSocket =
           case gen_tcp:send(Socket, BinaryMessage) of
               ok ->
  -                ?TRACE("~p Sent message ~p~n",
  +                ?TRACE("~.0p Sent message ~.0p~n",
                          [pid_groups:my_pidname(), Message]),
                   ?LOG_MESSAGE(Message, byte_size(BinaryMessage)),
                   Socket;
  
positive.code:                 gen_tcp:close(Socket),
                  notconnected;
              {error, timeout} ->
                  log:log(error,"[ CC ] couldn't send to ~p:~p (~p). retrying.",
                          [Address, Port, timeout]),
                  send({Address, Port, Socket}, Pid, Message);
              {error, Reason} ->
                  log:log(error,"[ CC ] couldn't send to ~p:~p (~p). closing connection",
                          [Address, Port, Reason]),
                  gen_tcp:close(Socket),
                  notconnected
  
negative.code:                             gen_tcp:send(Socket, YouAre),
                              Socket;
                          {error, Reason} ->
                              log:log(error,"[ CC ] reconnect to ~.0p because socket is ~.0p",
                                      [Address, Reason]),
                              gen_tcp:close(Socket),
                              new_connection(Address, Port, MyPort)
                      end;
                  {error, Reason} ->
                      log:log(error,"[ CC ] reconnect to ~.0p because socket is ~.0p",
                              [Address, Reason]),
                      gen_tcp:close(Socket),
                      new_connection(Address, Port, MyPort)
              end;
          {error, Reason} ->
              log:log(info,"[ CC ] couldn't connect to ~.0p:~.0p (~.0p)",
                      [Address, Port, Reason]),
              fail
      end.
  