diff --git a/src/pgsql/queries.lisp b/src/pgsql/queries.lisp
index e565ecf..72c5c59 100644
--- a/src/pgsql/queries.lisp
+++ b/src/pgsql/queries.lisp
@@ -207,7 +207,7 @@
       (when tables
         (pomo:execute
          (format nil "create temp table reloids(oid) as values ~{('~a'::regclass)~^,~}"
-                 tables)))
+                 (mapcar #'apply-identifier-case tables))))
 
       (handler-case
           (let ((sql (format nil "
diff --git a/src/sources/mysql/mysql.lisp b/src/sources/mysql/mysql.lisp
index bb1e1e1..8a45e28 100644
--- a/src/sources/mysql/mysql.lisp
+++ b/src/sources/mysql/mysql.lisp
@@ -248,7 +248,7 @@
                          (map 'string #'code-char
                               (loop :repeat 5
                                  :collect (+ (random 26) (char-code #\A))))
-                         "-"
+                         "_"
                          (map 'string #'code-char
                               (loop :repeat 5
                                  :collect (+ (random 26) (char-code #\A)))))))