From c35468d4375731d8fcfd65802ea3ff6775feeea7 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Sat, 5 Oct 2013 15:39:15 +0200
Subject: [PATCH] =?UTF-8?q?Remove=20hard-coded=20value=20that=20somehow=20?=
 =?UTF-8?q?did=20find=20a=20way=20in,=20thanks=20to=20Hans=20H=FCbner.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 mysql.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mysql.lisp b/mysql.lisp
index 30ec81c..926850d 100644
--- a/mysql.lisp
+++ b/mysql.lisp
@@ -470,7 +470,7 @@ order by ordinal_position" dbname table-name)))
    copying."
   (let* ((lp:*kernel* kernel)
 	 (table-oid
-	  (with-pgsql-transaction ("pmsi")
+	  (with-pgsql-transaction (dbname)
 	    (pomo:query
 	     (format nil "select '~a'::regclass::oid" table-name) :single))))
     (pgstate-add-table state dbname label)