r11657: 25 Apr 2007 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / db-sqlite3 / sqlite3-sql.lisp

diff --git a/db-sqlite3/sqlite3-sql.lisp b/db-sqlite3/sqlite3-sql.lisp
index 8950686f4fee2400bb22ae475e5f61dbfcc0eecf..8b433be2ba60b4033d6b18333f6619c32d1e204c 100644 (file)
--- 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))))