anchor.diff:  % ej_srv messages
   handle_info({From,Ref,{?TAG_OK,[?EJMSGPART(call,handshake)]}},S) ->
       % TODO check Ref
  -    log:debug(self(), "got handshake from: ~p", [From]),
  +    log:debug(self(), "info handshake from: ~p", [From]),
       {noreply, S#jsrv{peer=From}};
   handle_info({From,Ref,{?TAG_OK,[?EJMSGPART(call,bye)]}},S) ->
       % TODO check Ref
  
positive.code:     log:info(self(), "open port to org.ister.ej.Node: ~p", [Cmd]),
      erlang:open_port({spawn, Cmd},[]),
      timer:sleep(500),
      log:info(self(), "first handshake to: ~p", [Peer]),
      run_handshake(Peer).
  
  run_handshake(Peer) ->
      Ref = ?EJMSGREF(self(),erlang:make_ref()),
  
negative.code: handshake(Bindir) ->
      {ok, Hostname} = inet:gethostname(),
      Peer = {?PEERNAME,list_to_atom(?PEERSTR ++ "@" ++ Hostname)},
      case quick_handshake(Peer) of
          {ok,From}         -> From;
          {error,no_answer} -> full_handshake(Peer,Bindir)
      end.
      
  quick_handshake(Peer) ->
      log:info(self(), "quick handshake to: ~p", [Peer]),
      run_handshake(Peer).
  
  full_handshake(Peer,Bindir) ->
      Args = "-peer " ++ atom_to_list(node())
          ++ " -sname " ++ ?PEERSTR
          ++ " -cookie " ++ atom_to_list(erlang:get_cookie()),
  