diff --git a/main.scm b/main.scm
index 0e309dc..5ee3e46 100755
--- a/main.scm
+++ b/main.scm
@@ -151,7 +151,12 @@
 ;; (markdown->sxml "![x](x)")   =>  ((p (img (@ (src ("x")) (alt "x")))))
 
 (define (adjust-relative-src adjust-relative inner)
-  (let* ((srcurl (caar (alist-ref-in '(@ src) inner equal?)))
+  (let* ((srcurl
+          (->
+           ;; ugh why
+           (alist-ref-in '(@ src) inner equal?)
+           (car)
+           ((lambda (x) (if (list? x) (car x) x)))))
          (srcurl-startswith (cute string-prefix? <> srcurl)))
     (if
      (or (not adjust-relative)