diff --git a/src/main.lisp b/src/main.lisp
index bf848e7..f3a6093 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -354,7 +354,7 @@ with the image attached"
                                    (trim-whitespace
                                     (cdr (assoc "parent-last-name" form
                                                 :test 'string=))))))
-    (log:info (format nil "Mailing out the camp form for ~"
+    (log:info (format nil "Mailing out the camp form for ~a"
                       (concat first-name " " last-name)))
     (not (cl-smtp:send-email
           "mail.tfcconnection.org"
@@ -400,7 +400,7 @@ with the image attached"
                                    (trim-whitespace
                                     (cdr (assoc "parent-last-name" form
                                                 :test 'string=))))))
-    (log:info (format nil "Mailing out the health form for ~"
+    (log:info (format nil "Mailing out the health form for ~a"
                       (concat first-name " " last-name)))
     (not (cl-smtp:send-email
           "mail.tfcconnection.org"