anchor.diff:  
   suite() ->
       [{ct_hooks,[ts_install_cth]},
  -     {timetrap,{seconds,40}}].
  +     {timetrap,{seconds,30}}].
   
   all() -> 
       [connectfun_disconnectfun_server,
  
positive.code: 	 ssh_connect_arg4_timeout/1, 
  	 ssh_connect_negtimeout_parallel/1, 
  	 ssh_connect_negtimeout_sequential/1, 
  	 ssh_connect_nonegtimeout_connected_parallel/0, 
  	 ssh_connect_nonegtimeout_connected_parallel/1,
  	 ssh_connect_nonegtimeout_connected_sequential/0,
  	 ssh_connect_nonegtimeout_connected_sequential/1,
  	 ssh_connect_timeout/1, connect/4,
  	 ssh_daemon_minimal_remote_max_packet_size_option/1, 
  
negative.code:     process_flag(trap_exit, true),
      SystemDir = filename:join(?config(priv_dir, Config), system),
      UserDir = ?config(priv_dir, Config),
      NegTimeOut = 2000,				% ms
      ct:log("Parallel: ~p",[Parallel]),
     
      {_Pid, _Host, Port} = ssh_test_lib:daemon([{system_dir, SystemDir},{user_dir, UserDir},
  