Patch for bug in SQLite code

Attached is a little patch which fixes a bug where ERROR is called
with wrong arguments.

Cheers,
Edi.


diff -ruw clsql-3.7.7-orig/db-sqlite3/sqlite3-sql.lisp clsql-3.7.7/db-sqlite3/sqlite3-sql.lisp
--- clsql-3.7.7-orig/db-sqlite3/sqlite3-sql.lisp	2006-10-16 14:38:24.000000000 +0200
+++ clsql-3.7.7/db-sqlite3/sqlite3-sql.lisp	2006-11-30 21:53:21.324630400 +0100
@@ -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))))