 
     (let [subitems (get items fmt)]
       [:fo:flow {:flow-name "xsl-region-body"}
-       (toc subitems [fmt] 2 :heading? true :editorial? true :recommendation-at-end? true)
+       (toc subitems [fmt] 3 :heading? true :editorial? true :recommendation-at-end? true)
        (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 % 2) (order (keys subitems)))
+       (mapcat #(genre-sexp (get subitems %) fmt % 2) (order (keys subitems)))
        (heading :h1 :recommendations [fmt :recommendations])])]])
 
 (defmethod document-sexp :all-formats

    [: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 % 1) (order (keys items)))]]])

(defn document [items fmt & args]
  (-> items

     " " [:fo:leader {:leader-pattern "dots" :role "NonStruct"}] " "
     [:fo:page-number-citation {:ref-id (hash path) :role "Reference"}]]
    (when (and (map? items) (< current-depth depth))
      (map #(toc-entry (% items) (conj path %) depth (inc current-depth)) (order (keys items))))]))

(defn- add-extra-headings [entries editorial? recommendation-at-end? single-recommendation?]
  (let [recommendation (if single-recommendation? :recommendation :recommendations)]
