diff --git a/Database/Handle.hs b/Database/Handle.hs
index 6d312df685..67f7592657 100644
--- a/Database/Handle.hs
+++ b/Database/Handle.hs
@@ -142,9 +142,9 @@ queryDb (DbHandle _ jobs _) a = do
 
 closeDb :: DbHandle -> IO ()
 closeDb h@(DbHandle worker jobs _) = do
-	flushQueueDb h
 	putMVar jobs CloseJob
 	wait worker
+	flushQueueDb h
 
 type Size = Int