@@ -28,10 +28,11 @@
 ;; ~~~ Provides ~~~
 
 (provide spell-of-summoning!
          crystalize-article!
          crystalize-series!
+         crystalize-index-entries!
          article-plain-title
          list/articles
          list/articles+notes
          listing<>-short/articles
          listing<>-full/articles
@@ -365,11 +366,11 @@
 (define (split-entry str)
   (define splits (string-split str "!"))
   (list (car splits)
         (cadr (append splits (list "")))))
 
-;; (private) Save any index entries in doc to the SQLite cache
+;; Save any index entries in doc to the SQLite cache.
 ;; Sub-entries are specified by "!" in the index key
 (define (crystalize-index-entries! pagenode doc)
   (define (index-entry? tx)
     (and (txexpr? tx)
          (string=? "index-link" (attr-ref tx 'class "")) ; see definition of html-index