diff --git a/src/Main.hs b/src/Main.hs
index a2677b3..2216b0b 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -35,7 +35,7 @@ import qualified TXMLConnector                  as Connector
 import           Version                        (transaqConnectorVersionText)
 
 mkLogger :: (MonadIO m) => Handle -> Severity -> LogAction m Message
-mkLogger h sev = cfilter (\m -> msgSeverity m > sev) (fmtMessage >$< (logTextStdout <> logTextHandle h))
+mkLogger h sev = cfilter (\m -> msgSeverity m >= sev) (fmtMessage >$< (logTextStdout <> logTextHandle h))
 
 parseLoglevel :: Int -> Severity
 parseLoglevel 0 = Error