diff --git a/relational-query-HDBC.cabal b/relational-query-HDBC.cabal
--- a/relational-query-HDBC.cabal
+++ b/relational-query-HDBC.cabal
@@ -1,5 +1,5 @@
 name:                relational-query-HDBC
-version:             0.4.0.0
+version:             0.5.0.0
 synopsis:            HDBC instance of relational-query and typed query interface for HDBC
 description:         This package contains the HDBC instance of relational-query and
                      the typed query interface for HDBC.
@@ -49,8 +49,8 @@
                        , dlist
 
                        , names-th
-                       , persistable-record >= 0.2
-                       , relational-query >= 0.7
+                       , persistable-record >= 0.3
+                       , relational-query >= 0.8
                        , relational-schemas
                        , HDBC >=2
                        , HDBC-session
diff --git a/src/Database/HDBC/Query/TH.hs b/src/Database/HDBC/Query/TH.hs
--- a/src/Database/HDBC/Query/TH.hs
+++ b/src/Database/HDBC/Query/TH.hs
@@ -69,8 +69,8 @@
                     -> [Name]            -- ^ Derivings
                     -> Q [Dec]           -- ^ Result declaration
 defineTableDefault' config schema table columns derives = do
-  modelD <- Relational.defineTableTypesAndRecordDefault config schema table columns derives
-  sqlvD  <- makeRecordPersistableWithSqlTypeDefault [t| SqlValue |] table $ length columns
+  modelD <- Relational.defineTableTypesAndRecord config schema table columns derives
+  sqlvD  <- makeRecordPersistableWithSqlTypeDefault [t| SqlValue |] schema table $ length columns
   return $ modelD ++ sqlvD
 
 -- | Generate all HDBC templates about table using default naming rule.
@@ -83,8 +83,8 @@
                    -> Maybe Int         -- ^ Index of not-null key
                    -> Q [Dec]           -- ^ Result declaration
 defineTableDefault config schema table columns derives primary notNull = do
-  modelD <- Relational.defineTableDefault config schema table columns derives primary notNull
-  sqlvD  <- makeRecordPersistableWithSqlTypeDefault [t| SqlValue |] table $ length columns
+  modelD <- Relational.defineTable config schema table columns derives primary notNull
+  sqlvD  <- makeRecordPersistableWithSqlTypeDefault [t| SqlValue |] schema table $ length columns
   return $ modelD ++ sqlvD
 
 -- | Generate all HDBC templates using system catalog informations with specified config.
diff --git a/src/Database/HDBC/Record/Insert.hs b/src/Database/HDBC/Record/Insert.hs
--- a/src/Database/HDBC/Record/Insert.hs
+++ b/src/Database/HDBC/Record/Insert.hs
@@ -21,7 +21,7 @@
 
 import Database.HDBC (IConnection, SqlValue)
 
-import Database.Relational.Query (Insert (..))
+import Database.Relational.Query (Insert (..), untypeChunkInsert, chunkSizeOfInsert)
 import Database.Record (ToSql, fromRecord)
 
 import Database.HDBC.Record.Statement