r9041:

[clsql.git] / base / database.lisp

diff --git a/base/database.lisp b/base/database.lisp
index 62c6077d313ac7684e8debfd7b209da31a7d6b89..953c40a3bc51779d74b4375a2292f04ea59c97f5 100644 (file)
--- a/base/database.lisp
+++ b/base/database.lisp
@@ -190,8 +190,8 @@ if the database connection has been lost."
                              
     (when (is-database-open db)
       (if force
-         (ignore-errors (disconnect db))
-         (disconnect db :error nil)))
+         (ignore-errors (disconnect :database db))
+         (disconnect :database db :error nil)))
     
     (connect (connection-spec db))))