diff --git a/src/ATrade/Driver/Junction.hs b/src/ATrade/Driver/Junction.hs
index cd4ad8e..6f53683 100644
--- a/src/ATrade/Driver/Junction.hs
+++ b/src/ATrade/Driver/Junction.hs
@@ -84,7 +84,7 @@ locked :: (MonadIO m, MonadUnliftIO m) => QSem -> LogAction m a -> LogAction m a
 locked sem action = LogAction (\m -> withQSem sem (action <& m))
 
 logger :: (MonadIO m) => M.Map T.Text Severity -> Handle -> LogAction m Message
-logger loglevels h = cfilter checkLoglevel (fmtMessage >$< (logTextStdout <> logTextHandle h))
+logger loglevels h = cfilter checkLoglevel (fmtMessage >$< (logTextStderr <> logTextHandle h))
   where
     checkLoglevel msg =
       case M.lookup (msgComponent msg) loglevels of