diff --git a/src/sources/common/db-methods.lisp b/src/sources/common/db-methods.lisp
index edf62d1..056623b 100644
--- a/src/sources/common/db-methods.lisp
+++ b/src/sources/common/db-methods.lisp
@@ -265,6 +265,8 @@
                             alter-schema
 			    materialize-views)
   "Export database source data and Import it into PostgreSQL"
+  (log-message :log "Migrating from ~a" (source-db copy))
+  (log-message :log "Migrating into ~a" (target-db copy))
   (let* ((*on-error-stop* on-error-stop)
          (copy-data      (or data-only (not schema-only)))
          (create-ddl     (or schema-only (not data-only)))
diff --git a/src/utils/connection.lisp b/src/utils/connection.lisp
index 51ea74a..dcdc6d8 100644
--- a/src/utils/connection.lisp
+++ b/src/utils/connection.lisp
@@ -112,7 +112,12 @@
 (defmethod print-object ((c db-connection) stream)
   (print-unreadable-object (c stream :type t :identity t)
     (with-slots (type name host port user) c
-      (format stream "~a://~a@~a:~a/~a" type user host port name))))
+      (let ((host (typecase host
+                    (cons (format nil "~a:~a"
+                                  (string-downcase (car host))
+                                  (cdr host)))
+                    (t    host))))
+       (format stream "~a://~a@~a:~a/~a" type user host port name)))))
 
 (define-condition db-connection-error (connection-error)
   ((host :initarg :host :reader connection-error-host)