diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index ca5f952..90291aa 100644
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@@ -266,7 +266,7 @@
                  :sender     sender
                  :request    request))
 
-(defmethod backplane-dns::parse-message (sender (service (eql :DNS)) api-version message msg-id)
+(defmethod backplane-dns:parse-message (sender (service (eql :DNS)) api-version message msg-id)
   (parse-dns-message sender (symbolize (cdr (assoc :REQUEST message))) message msg-id))
 
 (defun backplane-dns-listen (&key
diff --git a/package.lisp b/package.lisp
index 56911cb..3ecaa4a 100644
--- a/package.lisp
+++ b/package.lisp
@@ -25,4 +25,5 @@
                 #:with-transaction)
 
   (:export      #:start-listener-with-env
-                #:backplane-dns-listen))
+                #:backplane-dns-listen
+                #:parse-message))