diff --git a/src/reminders.scm b/src/reminders.scm
index f7e9968..812cb76 100644
--- a/src/reminders.scm
+++ b/src/reminders.scm
@@ -39,14 +39,16 @@
 
  ;; Creates reminder email body
  (define (reminder-email-body mr)
-   (list "reminder"))
+   (list
+    (member-format "reminder for ~N" mr)
+    ))
 
  ;; Creates reminder email dictionary
  (define (make-reminder-email mr)
    (make-ldict
     `((to (member-email mr))
       (subject "Připomínka členských příspěvků / Membership fees reminder")
-      (body (reminder-email-body mr)))))
+      (body ,(reminder-email-body mr)))))
 
  ;; Prints email to the console
  (define (print-reminder-email em)