anchor.diff:        OpenTcpSocket :: open_socket(),
         Options :: client_options().
   
  -connect(OpenTcpSocket, Options) when is_port(OpenTcpSocket),
  -                                     is_list(Options) ->
  +connect(OpenTcpSocket, Options) when is_list(Options) ->
       connect(OpenTcpSocket, Options, infinity).
   
   
  
positive.code: %%--------------------------------------------------------------------
  -spec shell(open_socket() | host() | connection_ref()) ->  _.
  
  shell(Socket) when is_port(Socket) ->
      shell(Socket, []);
  
  shell(ConnectionRef) when is_pid(ConnectionRef) ->
      case ssh_connection:session_channel(ConnectionRef, infinity) of
  	{ok,ChannelId}  ->
  
negative.code:                {error,SockError} ->
                     {error,SockError}
             end
          end.
  
  
  -spec connect(Host, Port, Options, NegotiationTimeout) -> {ok,connection_ref()} | {error,term()} when
  