diff --git a/mysql.lisp b/mysql.lisp
index c1a529f..4751f3f 100644
--- a/mysql.lisp
+++ b/mysql.lisp
@@ -420,7 +420,7 @@ order by ordinal_position" dbname table-name)))
 				 (our-columns
 				  (cdr (assoc table-name all-columns
 					      :test #'string=))))
-			    (loop for col in our-columns collect nil)))))
+			    (transforms our-columns)))))
 
     (with-stats-collection (dbname table-name :state *state* :summary summary)
       (log-message :notice "COPY ~a.~a" dbname table-name)