diff --git a/main.scm b/main.scm
index 37caed1..b4409dd 100755
--- a/main.scm
+++ b/main.scm
@@ -116,7 +116,7 @@
     (a (@ (title "Permalink to this section")
           (href "#" ,slug))))))
 
-(define (adjust-relative-link tag inner)
+(define ((adjust-relative-link adjust-relative) tag inner)
   (let ((linkurl (alist-ref-in '(@ href) inner)))
     `(,tag .
       ,(if (or (not adjust-relative)
@@ -134,7 +134,7 @@
     (h5        . ,enumerate-tag)
     ;; if adjust-relative is true, all relative links should get prefixed with
     ;; the relative-root.
-    `(a . ,adjust-relative-link)
+    `(a . ,(adjust-relative-link adjust-relative))
     ;; this copied from lowdown html-serialization-rules* because it
     ;; is for some reason not exported??
     (*COMMENT* . ,(lambda (_ str) (list #\< "!--" str "--" #\>)))