diff --git a/render.rkt b/render.rkt
index abd58d2..c38d621 100644
--- a/render.rkt
+++ b/render.rkt
@@ -164,10 +164,14 @@
         name
         `(li () (a ([href ,link])
                    ,(if (equal? p exploded) `(strong () ,name) name))))))
+  (define parent-name (simplify-path (build-path xref-name 'up) #f))
 
   (define site-toc
-    (apply list 'ol '()
-           (for/list ([def (in-list (sort site-toc-defs string<? #:key first))])
+    `(ol ()
+         ,@(if (equal? (build-path "/") xref-name)
+             '()
+             `((li () (a ([href ,(format "~a~a" base-url (path->string parent-name))]) "<up>"))))
+         ,@(for/list ([def (in-list (sort site-toc-defs string<? #:key first))])
              (second def))))
 
   (let ([content (lower-specials content base-url)])