X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql%2Fpostgresql-sql.lisp;h=2d74fc1179e160d765645b66597038a2344080d9;hp=d5a13f29befdbbc5eb86c7a5737e2a98e41f9954;hb=eb52183ddb786552d5abf6fdfaaca657e0c56ea0;hpb=4e884e357b399c1cf84e82ba3f95406f073811e4

diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp
index d5a13f2..2d74fc1 100644
--- 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))))))