diff --git a/src/sources/csv/csv.lisp b/src/sources/csv/csv.lisp
index 9f73d9d..1cbabf0 100644
--- a/src/sources/csv/csv.lisp
+++ b/src/sources/csv/csv.lisp
@@ -86,7 +86,14 @@
             (guess-csv-params stream nb-columns)
           (setf separator sep
                 quote     q
-                escape    esc))))
+                escape    esc)
+
+          (log-message :notice "Guessed following CSV parameters:~%  ~a"
+                       (format nil "~
+  fields terminated by '~a',
+  fields optionally enclosed by '~a',
+  fields escaped by '~a'"
+                               sep q esc)))))
 
     (handler-case
         (handler-bind ((cl-csv:csv-parse-error