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: 
  (defmethod sys.graphics::window-redraw ((window telnet-client)))
  
  (defun create-telnet-client ()
    "Open a telnet window."
    (sys.graphics::window-set-visibility (sys.graphics::make-window "Telnet" 640 400 'telnet-client) t))
  
  (setf (gethash (name-char "F3") sys.graphics::*global-keybindings*) 'create-telnet-client)
  
negative.code:                          (let ((command (read-byte (telnet-connection telnet))))
                             (if (eql command +command-iac+)
                                 (write-byte +command-iac+ (telnet-terminal telnet))
                                 (telnet-command telnet (telnet-connection telnet) command))))
                          ((eql byte #x0D) ; CR
                           (setf last-was-cr t)
                           (write-byte byte (telnet-terminal telnet)))
  