diff --git a/uiop/configuration.lisp b/uiop/configuration.lisp
index e866c6c1ae6b16ddcc010831f0814244f806e57d..b4aab199263e9ab37c60c748173de27e2354385e 100644
--- a/uiop/configuration.lisp
+++ b/uiop/configuration.lisp
@@ -333,7 +333,7 @@ also \"Configuration DSL\"\) in the ASDF manual."
     (mapcar #'(lambda (d) (resolve-location `(,d ,more)))
             (or (getenv-absolute-directories "XDG_CONFIG_DIRS")
                 (os-cond
-                 ((os-windows-p) (xdg-data-dirs "config/" more))
+                 ((os-windows-p) (xdg-data-dirs "config/"))
                  (t (mapcar 'parse-unix-namestring '("/etc/xdg/")))))))
 
   (defun xdg-cache-home (&rest more)
@@ -367,6 +367,7 @@ also \"Configuration DSL\"\) in the ASDF manual."
 MORE may contain specifications for a subpath relative to these directories: a
 subpathname specification and keyword arguments as per RESOLVE-LOCATION \(see
 also \"Configuration DSL\"\) in the ASDF manual."
+    (declare (ignorable more))
     (os-cond
      ((os-unix-p) (list (resolve-absolute-location `(,(parse-unix-namestring "/etc/") ,more))))))