diff --git a/src/main.lisp b/src/main.lisp
index ae6a50d..5d1c641 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -314,7 +314,9 @@ with the image attached"
               (:table
                (loop for row in form
                      do (:tr
-                         (:th (car row))
+                         (:th (string-capitalize
+                               (string-replace-all
+                                "-" (car row) " ")))
                          (:td (cdr row))))))))))))
 
 (defun mail-health-form (form attachment)
@@ -356,7 +358,9 @@ with the image attached"
               (:table
                (loop for row in form
                      do (:tr
-                         (:th (string-capitalize (car row)))
+                         (:th (string-capitalize
+                               (string-replace-all
+                                "-" (car row) " ")))
                          (:td (cdr row))))))))))))
 
 (tbnl:define-easy-handler (health-form :uri "/health-form") ()