diff --git a/src/sources/csv.lisp b/src/sources/csv.lisp
index f5a8358..3ad27e0 100644
--- a/src/sources/csv.lisp
+++ b/src/sources/csv.lisp
@@ -127,8 +127,7 @@
 		      ;; this function update :rows stats
 		      #'pgloader.pgsql:copy-from-queue dbname table-name dataq
 		      ;; we only are interested into the column names here
-		      :columns (let ((cols (columns csv)))
-				 (when cols (mapcar #'car cols)))
+		      :columns (mapcar #'car (columns csv))
 		      :truncate truncate
 		      :transforms (transforms csv))
 
diff --git a/src/sources/fixed.lisp b/src/sources/fixed.lisp
index d3d9bf4..f0b9c12 100644
--- a/src/sources/fixed.lisp
+++ b/src/sources/fixed.lisp
@@ -104,8 +104,7 @@
 		      ;; this function update :rows stats
 		      #'pgloader.pgsql:copy-from-queue dbname table-name dataq
 		      ;; we only are interested into the column names here
-		      :columns (let ((cols (columns fixed)))
-				 (when cols (mapcar #'car cols)))
+		      :columns (mapcar #'car (columns fixed))
 		      :truncate truncate
 		      :transforms (transforms fixed))