diff --git a/src/server.lisp b/src/server.lisp
index 6dd069f..3db1f5d 100644
--- a/src/server.lisp
+++ b/src/server.lisp
@@ -12,7 +12,7 @@
 (defvar *feeds* (make-hash-table :test 'equalp))
 
 (defun register-feed (&key base-uri name title path)
-  (when (not (and name title path))
+  (when (not (and base-uri name title path))
     (error "Must specify :name, :title, and :path for feeds."))
   (if-let ((verified-path (probe-file path)))
     (progn (when (pathname-name verified-path)