anchor.diff:  
   suite() ->
       [{ct_hooks,[ts_install_cth]},
  -     {timetrap,{seconds,40}}].
  +     {timetrap,{seconds,100}}].
   
   all() -> 
       [default_tree, sshc_subtree, sshd_subtree, sshd_subtree_profile].
  
positive.code: 	lists:keysearch(sshc_sup, 1, TopSupChildren),
      {value, {sshd_sup, _,supervisor,[sshd_sup]}} = 
  	lists:keysearch(sshd_sup, 1, TopSupChildren),
      [] = supervisor:which_children(sshc_sup),
      [] = supervisor:which_children(sshd_sup).
  
  sshc_subtree() ->
      [{doc, "Make sure the sshc subtree is correct"}].
  
negative.code:     ssh:stop().
  
  %%-------------------------------------------------------------------------
  %% Help macro
  %%-------------------------------------------------------------------------
  -define(wait_match(Pattern, FunctionCall, Bind),
  	Bind = 
  	    (fun() -> 
  		     F = fun(N, F1) ->
  				 case FunctionCall of
  				     Pattern -> Bind;
  				     _ when N>0 ->
  					 ct:pal("Must sleep ~p ms at ~p:~p",[?WAIT_FOR_SHUTDOWN,?MODULE,?LINE]),
  					 timer:sleep(?WAIT_FOR_SHUTDOWN),
  					 F1(N-1, F1);
  				     Other ->  
  					 ct:fail("Unexpected ~p:~p  ~p",[?MODULE,?LINE,Other])
  				 end
  			 end,
  		     F((5000 div ?WAIT_FOR_SHUTDOWN), F)
  	     end)()
         ).
  
  -define(wait_match(Pattern, FunctionCall), ?wait_match(Pattern, FunctionCall, ok)).
  
  %%-------------------------------------------------------------------------
  %% Test cases 
  %%-------------------------------------------------------------------------
  default_tree() ->
  