@@ -124,15 +124,15 @@
     (body-txpr note-txprs) (splitf-txexpr doc2 (make-tag-predicate 'note)))
   (define-values (disposition disp-note-id)
     (notes->last-disposition-values note-txprs))
   
   (let* ([pubdate (select-from-metas 'published (current-metas))]
-         [doc-html    (->html (cdr body-txpr))]
+         [doc-html    (->html body-txpr #:splice? #t)]
          [title-specified? (not (equal? '() maybe-title))]
          [title-val   (if (not (null? maybe-title)) (car maybe-title) maybe-title)]
          [title-tx    (make-article-title title-val body-txpr disposition disp-note-id)]
-         [title-html  (apply string-append (map ->html (get-elements title-tx)))]
+         [title-html  (->html title-tx #:splice? #t)]
          [title-plain (tx-strs title-tx)]
          [series-node (series-pagenode)]
          [header      (html$-article-open title-specified? title-tx pubdate)]
          [footertext (make-article-footertext pagenode series-node disposition disp-note-id (length note-txprs))]
          [footer (html$-article-close footertext)]