@@ -131,11 +131,11 @@
          [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  (->html title-tx #:splice? #t)]
          [title-plain (tx-strs title-tx)]
          [series-node (series-pagenode)]
-         [header      (html$-article-open title-specified? title-tx pubdate)]
+         [header      (html$-article-open pagenode title-specified? title-tx pubdate)]
          [footertext (make-article-footertext pagenode series-node disposition disp-note-id (length note-txprs))]
          [footer (html$-article-close footertext)]
          [notes-section-html (crystalize-notes! pagenode title-plain note-txprs)])
 
     ;; Values must come in the order defined in table_article_fields
@@ -154,11 +154,11 @@
             doc-html
             disposition
             disp-note-id
             (string-append header doc-html footer)
             "" ; listing_excerpt_html: Not yet used
-            (html$-article-listing-short (symbol->string pagenode) pubdate title-plain))) ; listing_short_html: Not yet used
+            (html$-article-listing-short pagenode pubdate title-plain))) ; listing_short_html: Not yet used
 
     (apply query! (make-insert/replace-query 'articles table_articles-fields) article-record)
           
     (string-append header doc-html notes-section-html footer)))