anchor.diff:  
       ct:pal("Expect a SUPERVISOR REPORT with offender {pid,~p}....~n", [ChPid2]),
       exit(ChPid2, kill),
  -    ?wait_match([{connection,Connection,worker,[ssh_connection_handler]},
  -                 {_,FwdAccSup, supervisor,[ssh_tcpip_forward_acceptor_sup]},
  -                 {_,ChSup,supervisor, [ssh_channel_sup]}
  +    ?wait_match([{_,FwdAccSup, supervisor,[ssh_tcpip_forward_acceptor_sup]},
  +                 {_,ChSup,supervisor, [ssh_channel_sup]},
  +                 {connection,Connection,worker,[ssh_connection_handler]}
                   ],
   		supervisor:which_children(SubSysSup),
   		[ChSup,FwdAccSup]),
  
positive.code:     end.
  
  chk_empty_con_daemon(Daemon) ->
      ?wait_match([{_,SubSysSup, supervisor,[ssh_subsystem_sup]},
  		 {{ssh_acceptor_sup,_}, AccSup, supervisor,[ssh_acceptor_sup]}],
  		supervisor:which_children(Daemon),
                  [SubSysSup,AccSup]),
      ?wait_match([{connection,ServerConnPid,worker,[ssh_connection_handler]},
                   {_,FwdAccSup, supervisor,[ssh_tcpip_forward_acceptor_sup]},
                   {_,ChSup,supervisor,[ssh_channel_sup]}
                  ],
  		supervisor:which_children(SubSysSup),
  		[ChSup,FwdAccSup,ServerConnPid]),
      ?wait_match([], supervisor:which_children(FwdAccSup)),
      ?wait_match([], supervisor:which_children(ChSup)),
      ?wait_match([{{ssh_acceptor_sup,_},_,worker,[ssh_acceptor]}],
                  supervisor:which_children(AccSup),
                  []),
      [SubSysSup, ChSup, ServerConnPid, AccSup, FwdAccSup].
  
negative.code:     {ok, Pid2} = ssh:connect(Host, Port, [{silently_accept_hosts, true},
  					  {user_interaction, false},
  					  {user, ?USER}, {password, ?PASSWD}, {user_dir, UserDir}]),
      ?wait_match([?SYSTEM_SUP(_,_),
                   ?SYSTEM_SUP(_,_)
                  ],
  		supervisor:which_children(sshc_sup)),
  
      ssh:close(Pid1),
      ?wait_match([?SYSTEM_SUP(_,_)
                  ],
  		supervisor:which_children(sshc_sup)),
      ssh:close(Pid2),
  