diff --git a/Command/Watch.hs b/Command/Watch.hs
index 26875b9a75..8b4e1b65cd 100644
--- a/Command/Watch.hs
+++ b/Command/Watch.hs
@@ -359,7 +359,7 @@ commitStaged = do
 shouldCommit :: UTCTime -> [Change] -> Bool
 shouldCommit now changes
 	| len == 0 = False
-	| len > 4096 = True -- avoid bloating queue too much
+	| len > 10000 = True -- avoid bloating queue too much
 	| length (filter thisSecond changes) < 10 = True
 	| otherwise = False -- batch activity
 	where