X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fpool.lisp;h=6791a6e272368ad232d2318856248b743d74cd98;hp=587ad9da953995b0675ed6dca0aec7d75c3400a0;hb=6f9c91e01227e25e36560220628269258c80712d;hpb=27887d97fcf2dd02c1629c5189233a8cfc569851

diff --git a/sql/pool.lisp b/sql/pool.lisp
index 587ad9d..6791a6e 100644
--- a/sql/pool.lisp
+++ b/sql/pool.lisp
@@ -37,7 +37,8 @@
 	     (vector-pop (free-connections pool))))
       (let ((conn (connect (connection-spec pool)
 			   :database-type (pool-database-type pool)
-			   :if-exists :new)))
+			   :if-exists :new
+                           :make-default nil)))
 	(with-process-lock ((conn-pool-lock pool) "Acquire from pool")
 	  (vector-push-extend conn (all-connections pool))
 	  (setf (conn-pool conn) pool))