diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs
index ea3f01fc5b..17eefd3f5e 100644
--- a/Assistant/Threads/Committer.hs
+++ b/Assistant/Threads/Committer.hs
@@ -140,7 +140,7 @@ humanImperceptibleDelay = threadDelay $
 shouldCommit :: UTCTime -> [Change] -> Bool
 shouldCommit now changes
 	| len == 0 = False
-	| len > 10000 = True -- avoid bloating queue too much
+	| len > 5000 = True -- avoid bloating change pool too much
 	| length recentchanges < 10 = True
 	| otherwise = False -- batch activity
   where