diff --git a/org-contacts.el b/org-contacts.el
index d81d43b..7b0b603 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -873,7 +873,8 @@ to do our best."
 	 (bday (org-contacts-vcard-escape (cdr (assoc-string org-contacts-birthday-property properties))))
 	 (addr (cdr (assoc-string org-contacts-address-property properties)))
 	 (nick (org-contacts-vcard-escape (cdr (assoc-string org-contacts-nickname-property properties))))
-	 (head (format "BEGIN:VCARD\nVERSION:3.0\nN:%s\nFN:%s\n" n name)))
+	 (head (format "BEGIN:VCARD\nVERSION:3.0\nN:%s\nFN:%s\n" n name))
+	 emails-list result phones-list)
     (concat head
 	    (when email (progn
 			  (setq emails-list (org-contacts-split-property email))