diff --git a/src/sources/sources.lisp b/src/sources/sources.lisp
index c66ca3f..b923aff 100644
--- a/src/sources/sources.lisp
+++ b/src/sources/sources.lisp
@@ -263,7 +263,7 @@
 					     ,(field-name-as-symbol name))))))
 		 `(lambda (row)
 		    (declare (optimize speed) (type list row))
-		    (destructuring-bind (,@args) row
+		    (destructuring-bind (&optional ,@args) row
 		      (declare (ignorable ,@args))
 		      (vector ,@newrow))))))))
       ;; allow for some debugging
diff --git a/test/errors.load b/test/errors.load
index b0c5de7..3fb487b 100644
--- a/test/errors.load
+++ b/test/errors.load
@@ -44,5 +44,6 @@ LOAD CSV
 4|month should be may, ok|2006-5-12|
 5|another month 13, stress retry path|2006-13-10|
 6|some null date to play with||
-7|and another line|2014-01-22|
+7|and a ragged line|
+8|and another line|2014-01-22|