diff --git a/System/ExceptionMailer.hs b/System/ExceptionMailer.hs
--- a/System/ExceptionMailer.hs
+++ b/System/ExceptionMailer.hs
@@ -69,7 +69,7 @@
 mailError :: Address -> Address -> Maybe String -> String -> IO ()
 mailError from to subj msg = do
   prog <- getProgName
-  let m = simpleMail' from to (fromString $ fromMaybe "Exception Mailer" subj)
+  let m = simpleMail' to from (fromString $ fromMaybe "Exception Mailer" subj)
                  (LT.concat ["Program: ", fromString $ prog ++ "\n"
                             ,"Exception:\n", fromString msg])
   renderSendMail m
diff --git a/exception-mailer.cabal b/exception-mailer.cabal
--- a/exception-mailer.cabal
+++ b/exception-mailer.cabal
@@ -1,5 +1,5 @@
 name:                exception-mailer
-version:             0.4
+version:             0.4.1
 synopsis:            Catch all runtime exceptions and send an email
 description:         This module is designed to be used in production code when
                      no runtime exceptions are expected.  This module will catch any
@@ -21,7 +21,7 @@
   exposed-modules:     System.ExceptionMailer
   ghc-options:         -W
   build-depends:       base >=4 && < 5,
-                       text,
+                       text >= 0.11.3.0,
                        mime-mail >= 0.4.4,
                        hslogger