diff --git a/backplane-dns-store.lisp b/backplane-dns-store.lisp
index 5ccee03..eda2df8 100644
--- a/backplane-dns-store.lisp
+++ b/backplane-dns-store.lisp
@@ -143,7 +143,7 @@
     (replace-records domain name "SSHFP" new-sshfps)))
 
 (defmethod ensure-connection ((store postgres-dns-store))
-  (let ((db postmodern:*database*))
+  (let ((conn postmodern:*database*))
     (when (not (connected-p conn))
       (reconnect conn))
     store))
diff --git a/store-package.lisp b/store-package.lisp
index c0295dc..ab4f0db 100644
--- a/store-package.lisp
+++ b/store-package.lisp
@@ -13,7 +13,9 @@
                 #:update-dao
                 #:insert-dao
                 #:delete-dao
-                #:with-transaction)
+                #:with-transaction
+                #:connected-p
+                #:reconnect)
   
   (:export      #:postgres-dns-store
                 #:invalid-ip