X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fconditions.lisp;h=cfe3aa34dc407dc297071507c4324c168b47f57f;hb=6b773c9d859a10b961df9c1c2c9b8a006b315aff;hp=571054d4d95e9d10128c58c356b578383379b93e;hpb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;p=clsql.git

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index 571054d..cfe3aa3 100644
--- 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."