diff --git a/backplane-dns-store.lisp b/backplane-dns-store.lisp
index b645df2..dbd8b28 100644
--- a/backplane-dns-store.lisp
+++ b/backplane-dns-store.lisp
@@ -30,7 +30,7 @@
 (defclass dns-domain ()
   ((id        :col-type integer
               :col-identity t
-              :reader   id)
+              :reader   domain-id)
    (name      :col-type (varchar 255)
               :initarg  :name
               :reader   domain-name)
@@ -66,7 +66,7 @@
     (error 'domain-name-missing :domain domain)))
 
 (defun get-records (domain name type)
-  (let ((domain-id (id (get-domain domain))))
+  (let ((domain-id (domain-id (get-domain domain))))
     (select-dao 'dns-record (:and (:= 'domain-id domain-id)
                                   (:= 'name      (format nil "~A.~A" name domain))
                                   (:= 'type      type)))))
@@ -79,7 +79,7 @@
              (id record))))
 
 (defun insert-record (domain name type content)
-  (let ((domain-id (id (get-domain domain))))
+  (let ((domain-id (domain-id (get-domain domain))))
     (insert-dao (make-instance 'dns-record
                              :domain-id domain-id
                              :name      (format nil "~A.~A" name domain)