anchor.diff:             nil) ;; No nodes with that name.
             (t
              (let* ((port (read-uint16 stream))
  -                  (node-type (read-byte stream))
  -                  (protocol (read-byte stream))
  +                  (node-type (cleric::read-byte stream))
  +                  (protocol (cleric::read-byte stream))
                     (lowest-version-supported (read-uint16 stream))
                     (highest-version-supported (read-uint16 stream))
                     (node-name-length (read-uint16 stream))
  -                  (node-name (read-bytes-as-string node-name-length stream))
  +                  (node-name (cleric::read-bytes-as-string node-name-length stream))
                     (extra-field-length (read-uint16 stream))
  -                  (extra-field (read-bytes extra-field-length stream)))
  +                  (extra-field (cleric::read-bytes extra-field-length stream)))
                (make-instance 'remote-node
                               :port port
                               :node-type (case node-type
  
positive.code: 
  (defun make-port-please2-request (node-name)
    (concatenate 'vector
                 (uint16-to-bytes (1+ (length node-name)))
                 (vector +port-please2-req+)
                 (string-to-bytes node-name)))
  
  
  ;;;
  
negative.code: 
  (defun read-port-please2-response (stream host)
    (handler-case
        (let ((tag (cleric::read-byte stream))
              (result (cleric::read-byte stream)))
          (cond
            ((/= tag +port2-resp+)
             (error 'unexpected-message-tag-error
  