diff --git a/src/util-mail.scm b/src/util-mail.scm
index b7af659..0bf7d50 100644
--- a/src/util-mail.scm
+++ b/src/util-mail.scm
@@ -49,9 +49,10 @@
 		    to
 		    (list to))))
        (apply process-send/recv
-	      "mail"
-	      "-r" from
-	      "-s" subject
-	      tos))))
+	      (list "mail"
+		    "-r" from
+		    "-s" subject
+		    tos)
+	      body-lines))))
 
  )