anchor.diff:  setup(_Type, nonode@nohost) ->
       exit(dist_not_enabled);
   setup(Type, _This) ->
  -    {ok, Host} = inet:gethostname(),
  +    Host = case os:getenv(?remote_host) of
  +	       false ->
  +		   {ok, This} = inet:gethostname(),
  +		   This;
  +	       RemHost ->
  +		   RemHost
  +	   end,
       Node = list_to_atom("perf_server@" ++ Host),
       SlaveArgs = case init:get_argument(pa) of
   	       {ok, PaPaths} ->
  
positive.code: 	       _ -> []
  	   end,
      %% io:format("Slave args: ~p~n",[SlaveArgs]),
      case net_adm:ping(Node) of
  	pong -> ok;
  	pang ->
  	    {ok, Node} = slave:start(Host, perf_server, SlaveArgs)
      end,
      Path = code:get_path(),
      true = rpc:call(Node, code, set_path, [Path]),
      ok = rpc:call(Node, ?MODULE, setup_server, [Type]),
      io:format("Client using ~s~n",[code:which(ssl)]),
      %% We expect this to run on 8 core machine
      restrict_schedulers(client),
      {ok, _} = ensure_all_started(ssl, []),
      Node.
  
  setup_server(_Type) ->
      restrict_schedulers(server),
      io:format("Server using ~s~n",[code:which(ssl)]),
      ssl:stop(),
      {ok, _} = ensure_all_started(ssl, []),
      ok.
  
  
  
negative.code:     ok.
  
  do_test(Type, TC, Loop, ParallellConnections, Server) ->
      _ = ssl:stop(),
      {ok, _} = ensure_all_started(ssl, []),
  
      {ok, {SPid, Host, Port}} = rpc:call(Server, ?MODULE, setup_server_init,
  					[Type, TC, Loop, ParallellConnections]),
      link(SPid),
  