X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Fdatabase.lisp;fp=base%2Fdatabase.lisp;h=953c40a3bc51779d74b4375a2292f04ea59c97f5;hb=d2df77ea1494c4801d071c8f0e5f7886fd018da9;hp=62c6077d313ac7684e8debfd7b209da31a7d6b89;hpb=ecf3657fff172a9f17129ccba015f6486df239df;p=clsql.git

diff --git a/base/database.lisp b/base/database.lisp
index 62c6077..953c40a 100644
--- 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))))