X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-sqlite3%2Fsqlite3-sql.lisp;h=8b433be2ba60b4033d6b18333f6619c32d1e204c;hp=8950686f4fee2400bb22ae475e5f61dbfcc0eecf;hb=bfe651c3fa71cb75476806f2d930a10be889fcac;hpb=0f0e8321b8bd2b2d96246ec578e6ce0117806fb4

diff --git a/db-sqlite3/sqlite3-sql.lisp b/db-sqlite3/sqlite3-sql.lisp
index 8950686..8b433be 100644
--- a/db-sqlite3/sqlite3-sql.lisp
+++ b/db-sqlite3/sqlite3-sql.lisp
@@ -181,8 +181,8 @@
 		(setf (sqlite3-result-set-n-col result-set) 0))
 	    (sqlite3:sqlite3-error (err)
 	      (error 'sql-database-error
-		     :message "Error in sqlite3-step: ~A"
-		     (sqlite3:sqlite3-error-message err))))
+		     :message (format nil "Error in sqlite3-step: ~A"
+                                      (sqlite3:sqlite3-error-message err)))))
 	  t))))