diff --git a/src/parsers/command-parser.lisp b/src/parsers/command-parser.lisp
index 8056552..5b858ee 100644
--- a/src/parsers/command-parser.lisp
+++ b/src/parsers/command-parser.lisp
@@ -274,7 +274,7 @@
       :collect (parse (case type
                         (:csv    'csv-option)
                         (:fixed  'fixed-option)
-                        (:db3    'dbf-option)
+                        (:dbf    'dbf-option)
                         (:ixf    'ixf-option)
                         (:sqlite 'sqlite-option)
                         (:mysql  'mysql-option)
diff --git a/src/sources/db3.lisp b/src/sources/db3.lisp
index 41a563d..e84a5f5 100644
--- a/src/sources/db3.lisp
+++ b/src/sources/db3.lisp
@@ -125,7 +125,11 @@
     (pgstate-incf *state* (target db3) :read read)))
 
 (defmethod copy-from ((db3 copy-db3)
-		      &key state-before truncate create-table table-name)
+		      &key
+                        table-name
+                        state-before
+                        (truncate     t)
+                        (create-table t))
   "Open the DB3 and stream its content to a PostgreSQL database."
   (let* ((summary     (null *state*))
 	 (*state*     (or *state* (make-pgstate)))