diff --git a/services/dkim-key.scm b/services/dkim-key.scm
index 0bd35b6..9b9f6bd 100644
--- a/services/dkim-key.scm
+++ b/services/dkim-key.scm
@@ -37,7 +37,7 @@
                        public)))
           (display (format #f "Create a TXT record at ~a._domainkey.~a with the contents of ~a/~a~%"
                            #$selector #$domain #$directory public)))
-        (unless (equal? (false-if-exception (readlink current)) key-file)
+        (unless (equal? (false-if-exception (readlink key-file)) private)
           (delete-file key-file)
           (symlink private key-file))))))