diff --git a/Database/HDBC.hs b/Database/HDBC.hs
--- a/Database/HDBC.hs
+++ b/Database/HDBC.hs
@@ -51,7 +51,7 @@
      -- ** Wrapped Connections
      ConnWrapper(..), withWConn,
      -- ** Preparing Queries
-     run, sRun, prepare, quickQuery', quickQuery,
+     run, runRaw, sRun, prepare, quickQuery', quickQuery,
 
      -- ** Transaction Handling
      -- $transactions
@@ -65,7 +65,7 @@
      -- * Statements
      Statement,
      -- ** Execution
-     execute, sExecute, executeMany, sExecuteMany,
+     execute, executeRaw, sExecute, executeMany, sExecuteMany,
      -- ** Fetching Results
      fetchRow, fetchRowAL, fetchRowMap, sFetchRow, 
      fetchAllRows, fetchAllRows', fetchAllRowsAL, fetchAllRowsAL',
diff --git a/Database/HDBC/SqlValue.hs b/Database/HDBC/SqlValue.hs
--- a/Database/HDBC/SqlValue.hs
+++ b/Database/HDBC/SqlValue.hs
@@ -582,9 +582,6 @@
     safeConvert (SqlTimeDiff x) = return . fromIntegral $ x
     safeConvert y@(SqlNull) = quickError y
 
-#if __GLASGOW_HASKELL__ >= 610
--- instances added in GHC 6.10.3
-#else
 instance Typeable Day where
     typeOf _ = mkTypeName "Day"
 instance Typeable TimeOfDay where
@@ -597,7 +594,6 @@
     typeOf _ = mkTypeName "DiffTime"
 instance Typeable TimeZone where
     typeOf _ = mkTypeName "TimeZone"
-#endif
 
 instance Typeable ST.ClockTime where
     typeOf _ = mkTypeName "ClockTime"
diff --git a/Database/HDBC/Statement.hs b/Database/HDBC/Statement.hs
--- a/Database/HDBC/Statement.hs
+++ b/Database/HDBC/Statement.hs
@@ -32,6 +32,13 @@
         -}
      execute :: [SqlValue] -> IO Integer,
 
+     {- | Execute the statement as-is, without supplying any
+        positional parameters.  This is intended for statements for
+        which the results aren't interesting or present (e.g., DDL or
+        DML commands).  If your query contains placeholders, this will
+        certainly fail; use 'execute' instead. -}
+     executeRaw :: IO (),
+
      {- | Execute the query with many rows. 
         The return value is the return value from the final row 
         as if you had called 'execute' on it.
diff --git a/Database/HDBC/Types.hs b/Database/HDBC/Types.hs
--- a/Database/HDBC/Types.hs
+++ b/Database/HDBC/Types.hs
@@ -48,6 +48,7 @@
 import Database.HDBC.Statement
 import Database.HDBC.SqlValue
 import Database.HDBC.ColTypes
+import Control.Exception ( finally )
 
 {- | Main database handle object.
 
@@ -91,6 +92,15 @@
                 {- | Roll back to the state the database was in prior to the
                    last 'commit' or 'rollback'. -}
                 rollback :: conn -> IO ()
+                {- | Execute an SQL string, which may contain multiple
+                   queries. This is intended for situations where you
+                   need to run DML or DDL queries and aren't
+                   interested in results. -}
+                runRaw :: conn -> String -> IO ()
+                runRaw conn sql = do
+                  sth <- prepare conn sql
+                  execute sth [] `finally` finish sth
+                  return ()
                 {- | Execute a single SQL query.  Returns the number
                    of rows modified (see 'execute' for details).
                    The second parameter is a list
diff --git a/HDBC.cabal b/HDBC.cabal
--- a/HDBC.cabal
+++ b/HDBC.cabal
@@ -1,5 +1,5 @@
 Name: HDBC
-Version: 2.1.1
+Version: 2.2.0
 License: LGPL
 Maintainer: John Goerzen <jgoerzen@complete.org>
 Author: John Goerzen
@@ -26,7 +26,7 @@
 
 library
   if flag(splitBase)
-    Build-Depends: base>=3, old-time, time>=1.1.2.4, bytestring, containers, old-locale
+    Build-Depends: base>=3 && <5, old-time, time>=1.1.2.4 && <1.3.0, bytestring, containers, old-locale
   else
     Build-Depends: base<3
   Build-Depends: mtl, convertible >= 1.0.1, utf8-string