# 
# patch "mlsqlite/ocaml-sqlite3.c"
#  from [8ebe955ccdc086a5feb0931c345495e922a1ded0]
#    to [4ffd05f56bd87954d1295b3b1fbd46e24de422cf]
# 
--- mlsqlite/ocaml-sqlite3.c
+++ mlsqlite/ocaml-sqlite3.c
@@ -225,7 +225,7 @@
       if (Is_exception_result (accum)) 
 	{
 	  sqlite3_free (errmsg); /* should be NULL actually */
-	  mlraise (accum);
+	  mlraise (Extract_exception (accum));
 	}
       else
 	ml_sqlite3_raise_exn (status, errmsg, FALSE);