diff --git a/main.scm b/main.scm
index 70961e0..9111f3a 100755
--- a/main.scm
+++ b/main.scm
@@ -110,6 +110,7 @@
          (let ((linkurl (alist-ref 'href (alist-ref '@ i))))
            `(,t .
              ,(if (and adjust-relative
+                       (not (string-prefix? "#" linkurl))
                        (not (string-prefix? "/" linkurl))
                        (not (string-prefix? "https://" linkurl))
                        (not (string-prefix? "http://" linkurl))