diff --git a/makedb.ml b/makedb.ml
index f090686..5773951 100644
--- a/makedb.ml
+++ b/makedb.ml
@@ -52,5 +52,7 @@ let makedb db json = let open Sqlite3
 	in let open Yojson.Basic.Util
 	in let access_data x = x |> member "Cell" |> to_list
 		|> filter_string |> List.iteri prep; allstep stmt
-	in json |> member "Table" |> member "Row" |> to_list
-		|> List.iter access_data
+	in
+	json |> member "Table" |> member "Row" |> to_list
+		|> List.iter access_data;
+	finalize stmt |> Rc.check