X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fdatabase.lisp;fp=sql%2Fdatabase.lisp;h=066d3484a27dfdaccae3d036abcf60e43aca5f55;hp=704029f6340fc2378a9ee83c582598c12e871170;hb=3a3ccc7a171dc4c6c10bc7e3fea8461fca6dc51b;hpb=a56b464f5cd084bb8cc493a150b49a6033f48143

diff --git a/sql/database.lisp b/sql/database.lisp
index 704029f..066d348 100644
--- a/sql/database.lisp
+++ b/sql/database.lisp
@@ -61,11 +61,11 @@ simply returned."
        (if (or (not errorp) (= count 1))
            (values (car matches) count)
            (cerror "Return nil."
-                   'clsql-simple-error
-                   :format-control "There exists ~A database called ~A."
-                   :format-arguments
-                   (list (if (zerop count) "no" "more than one")
-                         database)))))))
+                   'sql-database-error
+                   :message
+		   (format nil "There exists ~A database called ~A."
+			   (if (zerop count) "no" "more than one")
+			   database)))))))
 
 
 (defun connect (connection-spec