diff --git a/vcarded.scm b/vcarded.scm
index 1845e84..f277419 100644
--- a/vcarded.scm
+++ b/vcarded.scm
@@ -154,7 +154,7 @@
   (let [(element (read-vcard-element))]
     (if (not (eof-object? (peek-char)))
         (append (list element) (read-vcard))
-        element)))
+        (list element))))
 
 
 ;; Read a single unfolded line into a vcard “element” list.