diff --git a/yesod-core/src/Yesod/Core/Internal/Run.hs b/yesod-core/src/Yesod/Core/Internal/Run.hs
index 7ae43bc9..8df1902e 100644
--- a/yesod-core/src/Yesod/Core/Internal/Run.hs
+++ b/yesod-core/src/Yesod/Core/Internal/Run.hs
@@ -208,8 +208,9 @@ runHandler rhe@RunHandlerEnv {..} handler yreq = withInternalState $ \resState -
 safeEh :: (Loc -> LogSource -> LogLevel -> LogStr -> IO ())
        -> ErrorResponse
        -> YesodApp
-safeEh log' er req = traceStack "safeEh debug trace, log':" log' $ traceStack "safeEh debug trace, er:" er $ traceStack "safeEh debug trace, req:" req $ do
-    liftIO $ log' $(qLocation >>= liftLoc) "yesod-core" LevelError
+safeEh log' er req = do
+    traceStack "safeEh debug trace:" (log', er, req) $ liftIO
+           $ log' $(qLocation >>= liftLoc) "yesod-core" LevelError
            $ toLogStr $ "Error handler errored out: " ++ show er
     return $ YRPlain
         H.status500