diff --git a/src/reminders.scm b/src/reminders.scm
index e7da991..bed05b0 100644
--- a/src/reminders.scm
+++ b/src/reminders.scm
@@ -94,8 +94,9 @@
  ;; Actually send emails
  (define (make+send-reminder-email mr)
    (let ((em (make-reminder-email mr)))
+     (print "Sending " (ldict-ref em 'subject) " originally to " (ldict-ref em 'to))
      (send-mail (ldict-ref em 'body)
-		#:to "dominik.pantucek@trustica.cz"
+		#:to "joe@joe.cz"
 		#:subject (ldict-ref em 'subject))))
 
  )