@@ -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))