@@ -118,10 +118,11 @@
   (cond [(string>? file "") `(@ (div [[class "listing-filename"]] 128196 " " ,file) ,codeblock)]
         [else codeblock]))
 
 (define (html-index . elems)
   `(a [[id ,(here-id (list "_idx-" (uri-encode (car elems))))]
+       [href ,(string-append "/keyword-index.html#" (uri-encode (string-downcase (car elems))))]
        [data-index-entry ,(car elems)]
        [class "index-link"]]
       ,@(cdr elems)))
 
 (define (html-say . elems)