anchor.diff:  
   %%--------------------------------------------------------------------
   connectfun_disconnectfun_server(Config) ->
  -    PrivDir = proplists:get_value(priv_dir, Config),
  -    UserDir = filename:join(PrivDir, nopubkey), % to make sure we don't use public-key-auth
  -    file:make_dir(UserDir),
  +    UserDir = proplists:get_value(user_dir, Config),
       SysDir = proplists:get_value(data_dir, Config),
   
       Parent = self(),
  
positive.code: %%--------------------------------------------------------------------
  %%% validate client that uses the 'ssh_msg_debug_fun' option
  ssh_msg_debug_fun_option_server(Config) ->
      PrivDir = proplists:get_value(priv_dir, Config),
      UserDir = filename:join(PrivDir, nopubkey), % to make sure we don't use public-key-auth
      file:make_dir(UserDir),
      SysDir = proplists:get_value(data_dir, Config),
  
      Parent = self(),
  
negative.code: 				       end},
  				      {user, "foo"},
  				      {password, "morot"},
  				      {user_dir, UserDir},
                                        {save_accepted_host, false}, % Ensure no 'known_hosts' disturbs
  				      {user_interaction, false}]),
      ssh:stop_daemon(Pid).
  
  