anchor.diff:                                           :interrupt-character (name-char "C-["))))
              (setf (slot-value window 'terminal) terminal)
              (setf sys.graphics::*refresh-required* t)
  -           ;; Hard-code NAO for now.
  -           (with-open-stream (connection (sys.net::tcp-stream-connect '(204 236 130 210) 23))
  +           (with-open-stream (connection (sys.net::tcp-stream-connect (telnet-server window) (telnet-port window)))
                (setf (telnet-connection window) connection)
                (handler-case
                    (loop (let ((byte (read-byte terminal)))
  
positive.code:          (#.+option-terminal-type+
            (write-sequence (apply 'vector
                                   (append (list +command-iac+ +command-sb+ +option-terminal-type+ +subnegotiation-is+)
                                           (map 'list 'char-code "xterm-color")
                                           (list +command-iac+ +command-se+)))
                            connection))
           (t (write-sequence (vector +command-iac+ +command-sb+ option +subnegotiation-is+
  
negative.code:    (receive-process :reader receive-process)
     (buffer :initarg :buffer :reader window-buffer)
     (connection :initform nil :accessor telnet-connection)
     (terminal :reader telnet-terminal)
     (server :initarg :server :reader telnet-server)
     (port :initarg :port :reader telnet-port)
     (terminal-type :initarg :terminal-type :reader telnet-terminal-type))
    (:default-initargs :buffer (sys.graphics::make-fifo 500 'character)))
  
  (defmethod sys.gray:stream-read-char ((stream telnet-client))
  