diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,10 @@
 <!-- -*- Markdown -*- -->
 
+## 0.6.4.3
+
+- evaluate thunks in the result list of chunksInsert call.
+- enable the is-disabled warning message of executeNoFetch.
+
 ## 0.6.4.2
 
 - add an upper bound of version constraint.
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.6.4.2
+version:             0.6.4.3
 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.
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
@@ -2,7 +2,7 @@
 
 -- |
 -- Module      : Database.HDBC.Record.Insert
--- Copyright   : 2013 Kei Hibino
+-- Copyright   : 2013-2018 Kei Hibino
 -- License     : BSD3
 --
 -- Maintainer  : ex8k.hibino@gmail.com
@@ -26,7 +26,7 @@
 
 import Database.HDBC.Record.Statement
   (prepareNoFetch, withPrepareNoFetch, withUnsafePrepare, PreparedStatement, untypePrepared,
-   BoundStatement (..), runPreparedNoFetch, runNoFetch, mapNoFetch, executeNoFetch)
+   BoundStatement (..), runPreparedNoFetch, runNoFetch, mapNoFetch, executeBoundNoFetch)
 
 
 -- | Typed prepared insert type.
@@ -105,8 +105,8 @@
     mapM insert $ chunks size rs
   where
     insert (Right c) = do
-      rv <- executeNoFetch $ chunkBind iChunk c
-      return [rv]
+      rv <- executeBoundNoFetch $ chunkBind iChunk c
+      rv `seq` return [rv]
     insert (Left  c) =
       mapM (runPreparedInsert ins) c
 
diff --git a/src/Database/HDBC/Record/KeyUpdate.hs b/src/Database/HDBC/Record/KeyUpdate.hs
--- a/src/Database/HDBC/Record/KeyUpdate.hs
+++ b/src/Database/HDBC/Record/KeyUpdate.hs
@@ -31,7 +31,7 @@
 import Database.Record (ToSql)
 
 import Database.HDBC.Record.Statement
-  (BoundStatement (BoundStatement, bound, params), executeNoFetch)
+  (BoundStatement (BoundStatement, bound, params), executeBoundNoFetch)
 
 
 -- | Typed prepared key-update type.
@@ -87,7 +87,7 @@
                      => PreparedKeyUpdate p a
                      -> a
                      -> IO Integer
-runPreparedKeyUpdate pre = executeNoFetch . bindKeyUpdate pre
+runPreparedKeyUpdate pre = executeBoundNoFetch . bindKeyUpdate pre
 
 -- | Prepare insert statement, bind parameters,
 --   execute statement and get execution result.
diff --git a/src/Database/HDBC/Record/Statement.hs b/src/Database/HDBC/Record/Statement.hs
--- a/src/Database/HDBC/Record/Statement.hs
+++ b/src/Database/HDBC/Record/Statement.hs
@@ -2,7 +2,7 @@
 
 -- |
 -- Module      : Database.HDBC.Record.Statement
--- Copyright   : 2013-2017 Kei Hibino
+-- Copyright   : 2013-2018 Kei Hibino
 -- License     : BSD3
 --
 -- Maintainer  : ex8k.hibino@gmail.com
@@ -47,7 +47,7 @@
   BoundStatement
   {
     -- | Untyped prepared statement before executed.
-    bound  :: Statement
+    bound  :: !Statement
     -- | Bound parameters.
   , params :: [SqlValue]
   }
@@ -56,9 +56,9 @@
 data ExecutedStatement a =
   ExecutedStatement
   { -- | Untyped executed statement.
-    executed :: Statement
+    executed :: !Statement
     -- | Result of HDBC execute.
-  , result   :: Integer
+  , result   :: !Integer
   }
 
 -- | Unsafely untype prepared statement.
@@ -123,7 +123,7 @@
 executeBound bs = do
   let stmt = bound bs
   n <- HDBC.execute stmt (params bs)
-  return $ ExecutedStatement stmt n
+  n `seq` return (ExecutedStatement stmt n)
 
 {-# WARNING execute "Use 'executeBound' instead of this. This name will be used for executePrepared function in future release." #-}
 -- | Use 'executeBound' instead of this.
@@ -139,7 +139,7 @@
 executeBoundNoFetch :: BoundStatement () -> IO Integer
 executeBoundNoFetch = fmap result . executeBound
 
-{- WARNING executeNoFetch "Use 'executeBoundNoFetch' instead of this. This name will be used for runPreparedNoFetch function in future release." -}
+{-# WARNING executeNoFetch "Use 'executeBoundNoFetch' instead of this. This name will be used for runPreparedNoFetch function in future release." #-}
 -- | Use 'executeBoundNoFetch' instead of this.
 --   WARNING! This name will be used for runPreparedNoFetch function in future release.
 executeNoFetch :: BoundStatement () -> IO Integer