diff --git a/docs/docread/docread.scm b/docs/docread/docread.scm
index 5932886..4d6cb5a 100644
--- a/docs/docread/docread.scm
+++ b/docs/docread/docread.scm
@@ -97,7 +97,7 @@
   (let loop ((item table-of-contents))
     (cond
      ((null? item) (error "Unknown TOC root" name))
-     ((equal? name (caar item)) (set-cdr! (car item) (cons (sprintf "** xref:generated:~A[++~A++]\n" path name) (cdar item))))
+     ((equal? name (caar item)) (set-cdr! (car item) (cons (sprintf "** xref:generated:~A[++~A++]\n*** xref:generated:~A[++~A++]\n" path name path name) (cdar item))))
      ((is-prefix (caar item) name) (set-cdr! (car item) (cons (sprintf "*** xref:generated:~A[++~A++]\n" path name) (cdar item))))
      (else (loop (cdr item))))))