r11228: * db-postgresql/postgresql-{package,api,sql}.lisp: Apply

[clsql.git] / db-postgresql / postgresql-sql.lisp

diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp
index d5a13f29befdbbc5eb86c7a5737e2a98e41f9954..2d74fc1179e160d765645b66597038a2344080d9 100644 (file)
--- a/db-postgresql/postgresql-sql.lisp
+++ b/db-postgresql/postgresql-sql.lisp
@@ -222,7 +222,7 @@
                (error 'sql-database-data-error
                       :database database
                       :expression sql-expression
-                      :error-id (PQresultStatus result)
+                      :error-id (uffi:convert-from-foreign-string (PQresultErrorField result +PG-DIAG-SQLSTATE+))
                       :message (tidy-error-message
                                (PQresultErrorMessage result)))))
           (PQclear result))))))