diff --git a/src/hooks.lisp b/src/hooks.lisp
index bb27ea2..62c878b 100644
--- a/src/hooks.lisp
+++ b/src/hooks.lisp
@@ -12,6 +12,13 @@
 ;; So that we can #+pgloader-image some code away, see main.lisp
 (push :pgloader-image *features*)
 
+;;;
+;;; We need to support *print-circle* for the debug traces of the catalogs,
+;;; and while at it let's enforce *print-pretty* too.
+;;;
+(setf *print-circle* t *print-pretty* t)
+
+
 (in-package #:cl-user)
 
 (defun close-foreign-libs ()
diff --git a/src/utils/threads.lisp b/src/utils/threads.lisp
index 2581579..bfa6876 100644
--- a/src/utils/threads.lisp
+++ b/src/utils/threads.lisp
@@ -7,7 +7,9 @@
 
 (defun make-kernel (worker-count
 		    &key (bindings
-			  `((*monitoring-queue*   . ,*monitoring-queue*)
+			  `((*print-circle*       . ,*print-circle*)
+                            (*print-pretty*       . ,*print-pretty*)
+                            (*monitoring-queue*   . ,*monitoring-queue*)
                             (*copy-batch-rows*    . ,*copy-batch-rows*)
                             (*copy-batch-size*    . ,*copy-batch-size*)
                             (*rows-per-range*     . ,*rows-per-range*)