diff --git a/backplane-dns-store.lisp b/backplane-dns-store.lisp
index dbd8b28..6df4a75 100644
--- a/backplane-dns-store.lisp
+++ b/backplane-dns-store.lisp
@@ -61,7 +61,7 @@
         :reader error-msg)))
 
 (defun get-domain (domain)
-  (if-let ((domain (select-dao 'dns-domain (:= 'name domain))))
+  (if-let ((domain (car (select-dao 'dns-domain (:= 'name domain)))))
     domain
     (error 'domain-name-missing :domain domain)))