--- a/src/mysql.sml	Sun Jun 28 13:49:32 2009 -0400
+++ b/src/mysql.sml	Sun Jun 28 16:03:00 2009 -0400
@@ -186,7 +186,7 @@
              newline,
              string "}",
              newline,
-             string "conn = malloc(sizeof(conn));",
+             string "conn = calloc(1, sizeof(conn));",
              newline,
              string "conn->conn = mysql;",
              newline,
@@ -253,6 +253,9 @@
              newline]
     end
 
+fun query _ = raise Fail "MySQL query"
+fun queryPrepared _ = raise Fail "MySQL queryPrepared"
+
 val () = addDbms {name = "mysql",
                   header = "mysql/mysql.h",
                   link = "-lmysqlclient",
@@ -268,6 +271,8 @@
                                           newline],
                               string "}",
                                      newline],
-                  init = init}
+                  init = init,
+                  query = query,
+                  queryPrepared = queryPrepared}
 
 end