diff --git a/CHANGES.md b/CHANGES.md
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,3 +1,13 @@
+1.3.3
+=====
+
+* Fixed a bug related to ugly output to stdout even when it was turned off.
+
+1.3.2
+=====
+
+* Minor dependencies update.
+
 1.3.1
 =====
 
diff --git a/examples/Playground.hs b/examples/Playground.hs
--- a/examples/Playground.hs
+++ b/examples/Playground.hs
@@ -46,7 +46,8 @@
 main :: IO ()
 main = do
     testToJsonConfigOutput
+    let config = (productionB <> prefixB "logs")
     bracket_
-        (buildAndSetupYamlLogging (productionB <> prefixB "logs") testLoggerConfigPath)
+        (buildAndSetupYamlLogging config testLoggerConfigPath)
         releaseAllHandlers
         (testLogging >> showPureLog)
diff --git a/log-warper.cabal b/log-warper.cabal
--- a/log-warper.cabal
+++ b/log-warper.cabal
@@ -1,5 +1,5 @@
 name:                log-warper
-version:             1.3.2
+version:             1.3.3
 synopsis:            Flexible, configurable, monadic and pretty logging
 homepage:            https://github.com/serokell/log-warper
 license:             MIT
diff --git a/src/System/Wlog/Logger.hs b/src/System/Wlog/Logger.hs
--- a/src/System/Wlog/Logger.hs
+++ b/src/System/Wlog/Logger.hs
@@ -54,23 +54,22 @@
        , retrieveLogContent
        ) where
 
-import           Control.Concurrent.MVar    (modifyMVar, modifyMVar_, withMVar)
-import           Control.Lens               (makeLenses)
-import           Data.List                  (isPrefixOf)
-import qualified Data.Map                   as M
-import           Data.Maybe                 (fromJust)
-import qualified Data.Text                  as T
-import qualified Data.Text.IO               as TIO
-import           System.FilePath            ((</>))
-import           System.IO.Unsafe           (unsafePerformIO)
+import           Control.Concurrent.MVar (modifyMVar, modifyMVar_, withMVar)
+import           Control.Lens            (makeLenses)
+import           Data.List               (isPrefixOf)
+import qualified Data.Map                as M
+import           Data.Maybe              (fromJust)
+import qualified Data.Text               as T
+import qualified Data.Text.IO            as TIO
+import           System.FilePath         ((</>))
+import           System.IO.Unsafe        (unsafePerformIO)
 import           Universum
 
-import           System.Wlog.Handler        (LogHandler (getTag),
-                                             LogHandlerTag (HandlerFilelike), close,
-                                             readBack)
-import qualified System.Wlog.Handler        (handle)
-import           System.Wlog.Handler.Simple (streamHandler)
-import           System.Wlog.Severity       (LogRecord (..), Severity (..))
+import           System.Wlog.Handler     (LogHandler (getTag),
+                                          LogHandlerTag (HandlerFilelike), close,
+                                          readBack)
+import qualified System.Wlog.Handler     (handle)
+import           System.Wlog.Severity    (LogRecord (..), Severity (..))
 
 
 ---------------------------------------------------------------------------
@@ -112,11 +111,10 @@
 logInternalState :: MVar LogInternalState
 -- note: only kick up tree if handled locally
 logInternalState = unsafePerformIO $ do
-    h <- streamHandler stderr Debug
     let liTree = M.singleton rootLoggerName $
                  Logger { _lLevel = Just Warning
                         , _lName = ""
-                        , _lHandlers = [HandlerT h]}
+                        , _lHandlers = []}
         liPrefix = Nothing
     newMVar $ LogInternalState {..}
 
@@ -250,7 +248,7 @@
     callHandler :: LogRecord -> String -> HandlerT -> IO ()
     callHandler lr loggername (HandlerT x) =
         when (handlerFilter $ getTag x) $
-        System.Wlog.Handler.handle x lr loggername
+            System.Wlog.Handler.handle x lr loggername
 
 -- | Sets file prefix to 'LogInternalState'.
 setPrefix :: Maybe FilePath -> IO ()
diff --git a/src/System/Wlog/Severity.hs b/src/System/Wlog/Severity.hs
--- a/src/System/Wlog/Severity.hs
+++ b/src/System/Wlog/Severity.hs
@@ -29,4 +29,4 @@
 deriveSafeCopySimple 0 'base ''Severity
 
 -- | Internal type of log records.
-data LogRecord = LR !Severity !Text
+data LogRecord = LR !Severity !Text deriving Show
diff --git a/src/System/Wlog/Wrapper.hs b/src/System/Wlog/Wrapper.hs
--- a/src/System/Wlog/Wrapper.hs
+++ b/src/System/Wlog/Wrapper.hs
@@ -74,8 +74,6 @@
     (fromMaybe Warning -> defaultSeverity)
   = liftIO $ do
     lock <- liftIO $ newMVar ()
-    -- We set Debug here, to allow all messages by stdout handler.
-    -- They will be filtered by loggers.
     stdoutHandler <- setStdoutFormatter <$>
         streamHandlerWithLock lock stdout defaultSeverity
     stderrHandler <- setStderrFormatter <$>