That was silly...passing ensure-connection a message.

backplane-dns.lisp

@@ -52,9 +52,8 @@
 
 (defmethod backplane-server:handle-message ((message dns-request))
   (handler-case
-      (if-let ((store *dns-store*))
+      (if-let ((store (ensure-connection *dns-store*)))
         (-> message
-            (backplane-dns-store:ensure-connection store)
             (handle-dns-message store)
             (handle-dns-response (msg-id message)))
         (make-error :msg "dns store is not initialized"

package.lisp

@@ -19,8 +19,8 @@
                 #:missing-domain
                 #:invalid-ip
                 #:domain-name-missing
-                #:error-msg)
-  
+                #:error-msg
+                #:ensure-connection)
   (:export      #:start-listener-with-env
                 #:backplane-dns-listen
                 #:parse-message