@@ -10,10 +10,11 @@
          racket/string
          racket/function
          racket/list
          txexpr
          "cache.rkt"
+         "series-list.rkt"
          "dust.rkt")
 
 (provide html$-page-head
          html$-page-body-open
          html$-series-list
@@ -238,13 +239,13 @@
         (page-func (+ pagenum 1) "Older →" "nav-text")))
 
   (string-join `(,prev-link ,@page-group ,next-link)))
 
 (define (series->txpr s)
-  `(li (a [[href ,(string-append web-root (symbol->string (cache:series-page s)))]]
-          (i ,(cache:series-title s)))))
+  `(li (a [[href ,(string-append web-root (format "~a/~a.html" series-folder (series-key s)))]]
+          (i ,(series-title s)))))
 
 (define (html$-series-list)
   (define series-list-items
     (for/list ([group (in-list (series-grouped-list))])
-      `(div (h2 ,(cache:series-noun-plural (first group))) (ul ,@(map series->txpr group)))))
+      `(div (h2 ,(series-noun-plural (first group))) (ul ,@(map series->txpr group)))))
   (->html `(section [[class "column-list"] [style "margin-top: 1.3rem"]] ,@series-list-items)))