anchor.diff:  	lists:map(fun print_server/1,
   		  supervisor:which_children(sshd_sup))
       catch
  -	C:E ->
  -	    io_lib:format('***print_servers FAILED: ~p:~p~n',[C,E])
  +	C:E:S ->
  +	    io_lib:format('***print_servers FAILED: ~p:~p,~n ~p~n',[C,E,S])
       end.
   
   
  
positive.code: 	lists:map(fun print_client/1,
  		  supervisor:which_children(sshc_sup))
      catch
  	C:E ->
  	    io_lib:format('***print_clients FAILED: ~p:~p~n',[C,E])
      end.
  
  print_client({undefined,Pid,supervisor,[ssh_connection_handler]}) ->
  
negative.code: 
  
  
  print_channels({{Role,ssh_channel_sup,_,_},Pid,supervisor,[ssh_channel_sup]}) when is_pid(Pid) ->
      ChanBehaviour =
          case Role of
              server -> ssh_server_channel;
              client -> ssh_client_channel
          end,
      Children =  supervisor:which_children(Pid),
      ChannelPids = [P || {R,P,worker,[Mod]} <- Children,
                          ChanBehaviour == Mod,
  			is_pid(P),
  			is_reference(R)],
      case ChannelPids of
  	[] -> io_lib:format(?INDENT?INDENT"No channels~n",[]);
  	[Ch1Pid|_] ->
  	    {{ConnManager,_}, _Str} = ChanBehaviour:get_print_info(Ch1Pid),
  	    {{_,Remote},_} = ssh_connection_handler:get_print_info(ConnManager),
  	    [io_lib:format(?INDENT?INDENT"Remote: ~s ConnectionRef = ~p~n",[fmt_host_port(Remote),ConnManager]),
  	     lists:map(fun print_ch/1, ChannelPids)
  	    ]
      end;
  print_channels({{_Role,ssh_connection_sup,_,_},Pid,supervisor,[ssh_connection_sup]}) when is_pid(Pid) ->
      []; % The supervisor of the connections socket owning process
  
  print_channels({Ref,Pid,supervisor,[ssh_tcpip_forward_acceptor_sup]}) when is_pid(Pid),
                                                                             is_reference(Ref) ->
      []. % The supervisor of the forward_acceptor process
  
  
  print_ch(Pid) ->
      try
  