diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index ed57ea5..91e0003 100644
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@@ -187,7 +187,8 @@
                                db-name
                                db-username
                                db-password)
-  (let ((postmodern:*ignore-unknown-columns* t))
+  (let ((postmodern:*ignore-unknown-columns* t)
+        (postmodern:*query-log* *standard-output*))
     (postmodern:with-connection (list db-name db-username db-password db-host)
       (let ((backplane (backplane-connect xmpp-host xmpp-username xmpp-password)))
         (xmpp:receive-stanza-loop backplane)))))