anchor.diff:  						    {password, "morot"},
   						    {exec, fun ssh_exec_echo/1}])
   	       end),
  +
  +    %% The client accepts the tcp connection from the server and ssh-connects to it
       {ok,Sc} = gen_tcp:accept(Sl),
       {ok,ConnectionRef} = ssh:connect(Sc, [{silently_accept_hosts, true},
   					  {user, "foo"},
   					  {password, "morot"},
   					  {user_interaction, true},
   					  {user_dir, UserDir}]),
  -    
  +
  +    %% And runs some commands
       {ok, ChannelId0} = ssh_connection:session_channel(ConnectionRef, infinity),
   
       success = ssh_connection:exec(ConnectionRef, ChannelId0,
  
positive.code: %%--------------------------------------------------------------------
  %% Internal functions ------------------------------------------------
  %%--------------------------------------------------------------------
  flush_msgs() ->
      receive
          _ -> flush_msgs()
  
negative.code:     file:make_dir(UserDir),
      SysDir = proplists:get_value(data_dir, Config),
  
      %% Listening tcp socket at the client side
      {ok,Sl} = gen_tcp:listen(0, [{active,false}]),
      {ok,{_IP,Port}} = inet:sockname(Sl),	% _IP is likely to be {0,0,0,0}. Win don't like...
  
      %% A server tcp-contects to the listening socket and starts an ssh daemon
      spawn_link(fun() ->
  		       {ok,Ss} = ssh_test_lib:gen_tcp_connect("localhost", Port, [{active,false}]),
  		       {ok, _Pid} = ssh:daemon(Ss, [{system_dir, SysDir},
  