anchor.diff:      (format stream "title = <~a>, artist = <~a>, album = <~a>, year = <~a>, comment = <~a>, track = <~d>, genre = ~d (~a)"
               title artist album year comment track genre (mp3-tag:get-id3v1-genre genre))))
   
  -(defmethod initialize-instance ((me v21-tag-header) &key instream)
  +(defmethod initialize-instance :after ((me v21-tag-header) &key instream)
     "Read in a V2.1 tag.  Caller will have stream-seek'ed file to correct location and ensured that TAG was present"
     (log5:with-context "v21-frame-initializer"
       (log-id3-frame "reading v2.1 tag")
  
positive.code:             (with-output-to-string (s)
                (format s "Header: version/revision: ~d/~d, flags: ~a, size = ~:d bytes; ~a; ~a"
                        version revision (print-header-flags nil flags) size
                        (if (header-extended-p flags)
                            (concatenate 'string "Extended header: " (vpprint ext-header nil))
                            "No extended header")
                        (if v21-tag-header
  
negative.code: 
              ;; Must make extended header here since it is subject to unsynchronization.
              (when (header-extended-p flags)
                (setf ext-header (make-instance 'id3-ext-header :instream mem-stream :version version)))
              (log-id3-frame "Complete header: ~a" (vpprint (id3-header mp3-file) nil))
  
              ;; Start reading frames from memory stream
              (multiple-value-bind (_ok _frames) (read-loop version mem-stream)
  