Index: crystalize.rkt ================================================================== --- crystalize.rkt +++ crystalize.rkt @@ -118,11 +118,11 @@ (define doc-html (->html (cdr body-txpr))) (define-values (disposition disp-note-id) (notes->last-disposition-values note-txprs)) (define-values (title-plain title-html-flow) - (make-article-titles (maybe-meta 'title (default-title pubdate)) (report disposition))) + (make-article-titles (maybe-meta 'title (default-title pubdate)) disposition)) (define header (html$-article-open title-html-flow pubdate)) (define footer (html$-article-close)) (define notes-section-html (crystalize-notes! pagenode title-plain note-txprs))