diff --git a/yesod/Devel.hs b/yesod/Devel.hs
index 00bd40f2..e4843861 100755
--- a/yesod/Devel.hs
+++ b/yesod/Devel.hs
@@ -97,6 +97,7 @@ mainLoop isDevel = forever $ do
    ec <- waitForProcess ph
    putStrLn $ "Exit code: " ++ show ec
    Ex.throwTo watchTid (userError "process finished")
+   watchForChanges list
 
 try_ :: forall a. IO a -> IO ()
 try_ x = (Ex.try x :: IO (Either Ex.SomeException a)) >> return ()