diff --git a/Database/HDBC/MySQL/Connection.hsc b/Database/HDBC/MySQL/Connection.hsc
--- a/Database/HDBC/MySQL/Connection.hsc
+++ b/Database/HDBC/MySQL/Connection.hsc
@@ -419,8 +419,12 @@
   buf_ <- new n
   bindOfSqlValue' (8::Int) buf_ #{const MYSQL_TYPE_LONGLONG} Unsigned
 
-bindOfSqlValue (Types.SqlEpochTime epoch) = do
-  let t = utcToMysqlTime $ posixSecondsToUTCTime (fromIntegral epoch)
+bindOfSqlValue (Types.SqlEpochTime epoch) = 
+  bindOfSqlValue (Types.SqlUTCTime t)
+    where t = posixSecondsToUTCTime (fromIntegral epoch)
+                                            
+bindOfSqlValue (Types.SqlUTCTime utct) = do
+  let t = utcToMysqlTime utct
   buf_ <- new t
   bindOfSqlValue' (#{const sizeof(MYSQL_TIME)}::Int) buf_ #{const MYSQL_TYPE_DATETIME} Signed
       where utcToMysqlTime :: UTCTime -> MYSQL_TIME
@@ -454,9 +458,6 @@
 
 bindOfSqlValue (Types.SqlZonedTime _) =
     error "SqlZonedTime: bind type not implemented"
-
-bindOfSqlValue (Types.SqlUTCTime _) =
-    error "SqlUTCTime: bind type not implemented"
 
 bindOfSqlValue (Types.SqlDiffTime _) =
     error "SqlDiffTime: bind type not implemented"
diff --git a/HDBC-mysql.cabal b/HDBC-mysql.cabal
--- a/HDBC-mysql.cabal
+++ b/HDBC-mysql.cabal
@@ -1,7 +1,7 @@
 Name:             HDBC-mysql
 Category:         Database
 Synopsis:         MySQL driver for HDBC
-Version:          0.6.4.0
+Version:          0.6.4.1
 Stability:        Experimental
 Maintainer:       Bryan O'Sullivan <bos@mailrank.com>
 Author:           Chris Waterson