diff --git a/Database/Persist/Postgresql.hs b/Database/Persist/Postgresql.hs
--- a/Database/Persist/Postgresql.hs
+++ b/Database/Persist/Postgresql.hs
@@ -164,6 +164,15 @@
                          Nothing -> "Postgresql.withStmt': unknown error"
                          Just e  -> "Postgresql.withStmt': " ++ B8.unpack e
               Just ret -> do
+                -- Check result status
+                status <- LibPQ.resultStatus ret
+                case status of
+                  LibPQ.TuplesOk -> return ()
+                  _ -> do
+                    msg <- LibPQ.resStatus status
+                    fail $ "Postgresql.withStmt': bad result status " ++
+                           show status ++ " (" ++ show msg ++ ")"
+
                 -- Get number and type of columns
                 cols <- LibPQ.nfields ret
                 getters <- forM [0..cols-1] $ \col -> do
diff --git a/persistent-postgresql.cabal b/persistent-postgresql.cabal
--- a/persistent-postgresql.cabal
+++ b/persistent-postgresql.cabal
@@ -1,5 +1,5 @@
 name:            persistent-postgresql
-version:         0.8.0
+version:         0.8.1
 license:         BSD3
 license-file:    LICENSE
 author:          Felipe Lessa, Michael Snoyman <michael@snoyman.com>