diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index 6e3dd12..6ba8d65 100644
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@@ -189,7 +189,7 @@
                               (id))))
     (let* ((new-sshfps (mapcar #'validate-sshfp incoming-sshfps))
            (full-hostname (format nil "~A.~A" host domain))
-           (sshfp-records (select-dao 'record
+           (sshfp-records (select-dao 'dns-record
                               (:and (:= 'name      full-hostname)
                                     (:= 'domain-id domain-id)
                                     (:= 'type      "SSHFP"))))