diff --git a/Utility/Tmp.hs b/Utility/Tmp.hs
index 5329467858..8b6d342f2f 100644
--- a/Utility/Tmp.hs
+++ b/Utility/Tmp.hs
@@ -69,7 +69,8 @@ withTmpDirIn tmpdir template = bracket create remove
 		-- after a process has just written to it and exited.
 		-- Because it's crap, presumably. So, ignore failure
 		-- to delete the temp directory.
-		void $ catchIO $ removeDirectoryRecursive d
+		_ <- tryIO $ removeDirectoryRecursive d
+		return ()
 #else
 		removeDirectoryRecursive d
 #endif