diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,8 +1,12 @@
 <!-- -*- Markdown -*- -->
 
+## 0.6.4.6
+
+- fix. treat the error of compile-time macro as error.
+
 ## 0.6.4.5
 
-- fix do safe convert for integral conversion from SQL value.
+- fix. do safe convert for integral conversion from SQL value.
 - add test suite of conversion from and to SQL value.
 
 ## 0.6.4.4
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.5
+version:             0.6.4.6
 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/Schema/Driver.hs b/src/Database/HDBC/Schema/Driver.hs
--- a/src/Database/HDBC/Schema/Driver.hs
+++ b/src/Database/HDBC/Schema/Driver.hs
@@ -75,7 +75,7 @@
 
 -- | Push an error string into 'LogChan'.
 putError :: LogChan -> String -> IO ()
-putError lchan = putLog lchan . Warning
+putError lchan = putLog lchan . Error
 
 -- | Push an error string into 'LogChan' and return failed context.
 failWith :: LogChan -> String -> MaybeT IO a