X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql%2Fpostgresql-sql.lisp;h=82f03e2454a0d63fff2ddfb4822fd96f31169d9d;hp=d5a13f29befdbbc5eb86c7a5737e2a98e41f9954;hb=555141f5d077a76f5bdd6ae83a2b3aee2c66f0c3;hpb=e8c000a120f978e464441838fe1576e6afc94d9d

diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp
index d5a13f2..82f03e2 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 (PQresultErrorField result +PG-DIAG-SQLSTATE+)
                       :message (tidy-error-message
 				(PQresultErrorMessage result)))))
           (PQclear result))))))