anchor.diff:  	 (error 'unsupported-avi-file-format))
          (cond ((and (string-equal (fcc-type rec) "vids") (string-equal (fcc-handler rec) "mjpg"))
   	      (change-class rec 'mjpeg-stream-record))
  -	     ((string-equal (fcc-type rec) "auds") (change-class rec 'audio-stream-record)))
  +	     ((string-equal (fcc-type rec) "auds") (change-class rec 'audio-stream-record) (read-audio-stream-header rec stream)))
          (return-from read-avi-stream-info rec))
     (error 'malformed-avi-file-format))
   
  
positive.code:   (setf (cdr (last (chunk-queue rec))) (chunk-queue rec)
  	(rcursor rec) (chunk-queue rec)
  	(wcursor rec) (cdr (chunk-queue rec))))
  
  (defclass video-stream ()
    ((filename :accessor filename :initarg :filename :initform nil)))
  
negative.code: 	(wcursor rec) (cdr (chunk-queue rec))))
  
  (defclass audio-stream-record (stream-record)
    ((compression-code :accessor compression-code)
     (number-of-channels :accessor number-of-channels)
     (sample-rate :accessor sample-rate)
     (average-bytes-per-second :accessor average-bytes-per-second)
     (block-align :accessor block-align)
     (significant-bits-per-sample :accessor significant-bits-per-sample)
     (extra-format-bytes :accessor extra-format-bytes)
     (extra-bytes :accessor extra-bytes)))
  
  (defmethod shared-initialize :after ((rec audio-stream-record) slots &key &allow-other-keys)
    (declare (ignorable slots))
  