diff --git a/Stackage/Database.hs b/Stackage/Database.hs
index 925dce9..bf9197d 100644
--- a/Stackage/Database.hs
+++ b/Stackage/Database.hs
@@ -250,7 +250,7 @@ createStackageDatabase fp = liftIO $ do
                 Left _ -> putStrLn $ "Skipping: " ++ fpToText fp'
                 Right _ -> action
             )
-        flip runSqlPool pool $ rawExecute "VACUUM" []
+        flip runSqlPool pool $ mapM_ (flip rawExecute []) ["COMMIT", "VACUUM", "BEGIN"]
 
 getDeprecated' :: [Deprecation] -> Tar.Entry -> [Deprecation]
 getDeprecated' orig e =