diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs
index b40b8ad285..585dfde9b8 100644
--- a/Assistant/Threads/Committer.hs
+++ b/Assistant/Threads/Committer.hs
@@ -247,9 +247,7 @@ safeToAdd delayadd pending inprocess = do
 		let inprocess' = inprocess ++ catMaybes (map mkinprocess $ zip pending keysources)
 		openfiles <- S.fromList . map fst3 . filter openwrite <$>
 			findopenfiles (map keySource inprocess')
-		liftIO $ print openfiles
 		let checked = map (check openfiles) inprocess'
-		liftIO $ print checked
 
 		{- If new events are received when files are closed,
 		 - there's no need to retry any changes that cannot