diff --git a/Assistant/Threads/ConfigMonitor.hs b/Assistant/Threads/ConfigMonitor.hs
index a1726a3616..2d012ad80f 100644
--- a/Assistant/Threads/ConfigMonitor.hs
+++ b/Assistant/Threads/ConfigMonitor.hs
@@ -38,7 +38,6 @@ configMonitorThread :: NamedThread
 configMonitorThread = NamedThread "ConfigMonitor" $ loop =<< getConfigs
   where
 	loop old = do
-		liftIO $ threadDelaySeconds (Seconds 60)
 		waitBranchChange
 		new <- getConfigs
 		when (old /= new) $ do
@@ -49,6 +48,7 @@ configMonitorThread = NamedThread "ConfigMonitor" $ loop =<< getConfigs
 			{- Record a commit to get this config
 			 - change pushed out to remotes. -}
 			recordCommit
+		liftIO $ threadDelaySeconds (Seconds 60)
 		loop new
 
 {- Config files, and their checksums. -}