r9371: minor formatting change

[clsql.git] / sql / conditions.lisp

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index 571054d4d95e9d10128c58c356b578383379b93e..cfe3aa34dc407dc297071507c4324c168b47f57f 100644 (file)
--- a/sql/conditions.lisp
+++ b/sql/conditions.lisp
@@ -104,7 +104,7 @@ and signal an clsql-invalid-spec-error if they don't match."
    (error :initarg :error :initarg nil :reader clsql-sql-error-error))
   (:report (lambda (c stream)
             (if (clsql-sql-error-message c)
-                (format stream "While accessing database ~A~%, Error~%  ~A~%  has occurred."
+                (format stream "While accessing database ~A,~%  Error ~A~%  has occurred."
                         (clsql-sql-error-database c)
                         (clsql-sql-error-message c))
               (format stream "While accessing database ~A~%  with expression ~S:~%  Error ~D / ~A~%  has occurred."