     [:fo:flow {:flow-name "xsl-region-body"}
      (toc items [] 1 :heading? true)
      (block {:break-before "odd-page"}) ;; the very first format should start on recto
-     (mapcat #(format-sexp items %) (order (keys items)))]]])
+     (mapcat #(format-sexp items % 1) (order (keys items)))]]])
 
 (defn document [items fmt & args]
   (-> items

         (toc subitems [fmt] 3 :heading? true :editorial? true)
         (heading :h1 :editorial [fmt :editorial])
         (heading :h1 :recommendation [fmt :recommendations])
         (mapcat #(genre-sexp subitems fmt %) (order (keys subitems)))])]]))

(defmethod document-sexp :hörbuch
  [items fmt {:keys [description date]}]

       (block {:break-before "odd-page"}) ;; the very first format should start on recto
       (heading :h1 :editorial [fmt :editorial])
       (heading :h1 :hörbuch [fmt :hörbuch])
       (mapcat #(genre-sexp subitems fmt % 1) (order (keys subitems)))
       (heading :h1 :recommendations [fmt :recommendations])])]])

(defmethod document-sexp :all-formats
