diff --git a/vcarded.scm b/vcarded.scm
index 04434e4..417c834 100644
--- a/vcarded.scm
+++ b/vcarded.scm
@@ -84,7 +84,7 @@
   ;; description, but unfortunately I’m coming up empty! =w=,
   (define (write-vcard vcard-alist #!optional (port (current-output-port)))
     (for-each (lambda (element)
-                (write-folded-line (serialize-vcard-element element)))
+                (write-folded-line (serialize-vcard-element element) port))
               vcard-alist))