anchor.diff:  (defmethod stream-element-type ((stream tcp-octet-stream))
     '(unsigned-byte 8))
   
  -(defun tcp-stream-connect (address port &key element-type external-format)
  +(defun tcp-stream-connect (address port &key element-type external-format persist timeout)
     (cond ((or (not element-type)
                (sys.int::type-equal element-type 'character))
            (make-instance 'tcp-stream
  -                        :connection (tcp-connect (sys.net::resolve-address address) port)
  +                        :connection (tcp-connect (sys.net::resolve-address address) port
  +                                                 :persist persist
  +                                                 :timeout timeout)
                           :external-format (sys.int::make-external-format
                                             (or element-type 'character)
                                             (or external-format :default)
  
positive.code:          (assert (or (not external-format)
                       (eql external-format :default)))
           (make-instance 'tcp-octet-stream
                          :connection (tcp-connect (sys.net::resolve-address address) port)))
          (t
           (error "Unsupported element type ~S" element-type))))
  
negative.code:                                     :snd.una iss
                                      :rcv.nxt 0
                                      :rcv.wnd *initial-window-size*
                                      :boot-id (if persist nil (mezzano.supervisor:current-boot-id))
                                      :timeout timeout)))
      (mezzano.sync.dispatch:dispatch-async
       (lambda ()
         (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
  