anchor.diff:  
             (setf vbr (make-instance 'vbr-info))
             (let ((v (make-mem-stream (payload me))))
  -            (stream-seek v i :start)            ; seek to xing/info info
  -            (setf (tag vbr)   (stream-read-iso-string-with-len v 4))
  +            (stream-seek v i :start)            ; seek to Xing/Info offset
  +            (setf (tag vbr) (stream-read-iso-string-with-len v 4))
               (setf (flags vbr) (stream-read-u32 v))
  +
               (when (logand (flags vbr) +vbr-frames+)
                 (setf (frames vbr) (stream-read-u32 v))
  -              (if (= 0 (frames vbr)) (warn-user "warning Xing/Info header flags has FRAMES set, but field is zero")))
  +              (log-mpeg-frame "Xing frames set: read ~d" (frames vbr))
  +              (when (zerop (frames vbr))
  +                (warn-user "warning file ~a Xing/Info header flags has FRAMES set, but field is zero." fn)))
  +
               (when (logand (flags vbr) +vbr-bytes+)
                 (setf (bytes vbr) (stream-read-u32 v))
  -              (if (= 0 (bytes vbr)) (warn-user "warning Xing/Info header flags has BYTES set, but field is zero")))
  +              (log-mpeg-frame "Xing bytes set: read ~d" (bytes vbr)))
  +
               (when (logand (flags vbr) +vbr-tocs+)
  -              (setf (tocs vbr) (stream-read-sequence v 100)))
  +              (setf (tocs vbr) (stream-read-sequence v 100))
  +              (log-mpeg-frame "Xing tocs set: read ~a" (tocs vbr)))
  +
               (when (logand (flags vbr) +vbr-scale+)
  -              (setf (scale vbr) (stream-read-u32 v)))
  +              (setf (scale vbr) (stream-read-u32 v))
  +              (log-mpeg-frame "Xing scale set: read ~d" (scale vbr)))
               (log-mpeg-frame "vbr-info = ~a" (vpprint vbr nil))))))))
   
   (defmethod vpprint ((me vbr-info) stream)
  
positive.code:                 (let ((hdr (make-instance 'frame :hdr-u32 hdr-u32 :pos pos)))
                    (if (load-frame hdr :instream in :read-payload t)
                        (progn
                          (check-vbr hdr)
                          (log-mpeg-frame "Valid header being returned: ~a, searched ~:d times" hdr count)
                          (return-from find-first-sync hdr))
                        (progn
  
negative.code:         (t (cond ((= (the fixnum channel-mode) (the fixnum +channel-mode-mono+)) 9)
                   (t 17)))))
  
  (defmethod check-vbr ((me frame) fn)
    (log5::with-context "check-vbr"
      (with-frame-slots (me)
  
        (let ((i (get-side-info-size version channel-mode)))
          (log-mpeg-frame "array index = ~d, payload size = ~d" i (length payload))
          (when (>= i (length payload))
            (return-from check-vbr nil))
  
          (when (or (and (= (aref payload (+ i 0)) (char-code #\X))
                         (= (aref payload (+ i 1)) (char-code #\i))
                         (= (aref payload (+ i 2)) (char-code #\n))
  