@@ -51,10 +51,11 @@
          list/articles+notes
          listing<>-short/articles
          listing<>-full/articles
          listing<>-full/articles+notes
          unfence
+         sqltools:dbc
          preheat-series!)
 
 ;; ~~~ Private use ~~~
 
 (define DBFILE (build-path (current-project-root) "vitreous.sqlite"))
@@ -147,11 +148,11 @@
          [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)])
 
-    (crystalize-index-entries! pagenode body-txpr)
+    (crystalize-index-entries! pagenode doc) ; Note the original doc is used here
 
     ;; Values must come in the order defined in table_article_fields
     (define article-record
       (list (symbol->string pagenode)
             title-plain