diff --git a/tekuti/marxdown.scm b/tekuti/marxdown.scm
index 205fefe..6b43a17 100644
--- a/tekuti/marxdown.scm
+++ b/tekuti/marxdown.scm
@@ -92,7 +92,7 @@
             ,@(match attributes
                 (() '())
                 (((attr . value) ...)
-                 `((@ ,(map list attr value)))))
+                 `((@ . ,(map list attr value)))))
             . ,(reverse seed))
           parent-seed))
   (define (ftext string1 string2 seed)