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: 
  
  
  print_channels({{server,ssh_channel_sup,_,_},Pid,supervisor,[ssh_channel_sup]}) when is_pid(Pid) ->
      Children =  supervisor:which_children(Pid),
      ChannelPids = [P || {R,P,worker,[ssh_server_channel]} <- Children,
  			is_pid(P),
  			is_reference(R)],
      case ChannelPids of
  	[] -> io_lib:format(?INDENT?INDENT"No channels~n",[]);
  	[Ch1Pid|_] ->
  	    {{ConnManager,_}, _Str} = ssh_server_channel: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({{server,ssh_connection_sup,_,_},Pid,supervisor,[ssh_connection_sup]}) when is_pid(Pid) ->
      []. % The supervisor of the connections socket owning process
  
  print_ch(Pid) ->
      try
  
negative.code: 	    io_lib:format(?INDENT?INDENT?INDENT"No channels~n",[])
       end];
  
  print_client({{client,ssh_system_sup,_,_,_},Pid,supervisor,[ssh_system_sup]}) when is_pid(Pid) ->
      lists:map(fun print_system_sup/1,
                supervisor:which_children(Pid)).
  
  %%%================================================================
  print_servers() ->
  