diff --git a/yesod/scaffold/Application.hs.cg b/yesod/scaffold/Application.hs.cg
index 18b6ec22..f564b31f 100644
--- a/yesod/scaffold/Application.hs.cg
+++ b/yesod/scaffold/Application.hs.cg
@@ -12,10 +12,11 @@ import Foundation
 import Settings
 import Yesod.Static
 import Yesod.Auth
-import Yesod.Logger (makeLogger, flushLogger, Logger)
+import Yesod.Logger (makeLogger, flushLogger, Logger, logString, logLazyText)
 import Database.Persist.~importGenericDB~
 import Data.ByteString (ByteString)
 import Data.Dynamic (Dynamic, toDyn)
+import Network.Wai.Middleware.Debug (debugHandle)
 
 #ifndef WINDOWS
 import qualified System.Posix.Signals as Signal
@@ -72,5 +73,8 @@ withDevelAppPort =
         conf <- Settings.loadConfig Settings.Development
         let port = appPort conf
         logger <- makeLogger
-        with~sitearg~ conf logger $ \app -> f (port, app)
+        logString logger $ "Devel application launched, listening on port " ++ show port
+        with~sitearg~ conf logger $ \app -> f (port, debugHandle (logHandle logger) app)
         flushLogger logger
+      where
+        logHandle logger msg = logLazyText logger msg >> flushLogger logger