3 files changed, 3 insertions, 3 deletions
diff --git a/src/connection/chroot.lisp b/src/connection/chroot.lisp
index eb7d533..5c149e3 100644
--- a/src/connection/chroot.lisp
+++ b/src/connection/chroot.lisp
@@ -103,7 +103,7 @@ should be the mount point, without the chroot's root prefixed.")
     ;; in UPLOAD-ALL-PREREQUISITE-DATA.
     (connection-connattr connection :remote-home)
     ;; Obtain & cache XDG_CACHE_HOME inside the chroot, and compute DATADIR.
-    (let ((xdg-cache-home (connection-connattr connection :XDG-CACHE-HOME)))
+    (let ((xdg-cache-home (connection-connattr connection :XDG_CACHE_HOME)))
       (setf connection (change-class connection 'chroot.fork-connection)
             (slot-value connection 'datadir)
             (merge-pathnames
diff --git a/src/connection/local.lisp b/src/connection/local.lisp
index 1d70adc..2c79036 100644
--- a/src/connection/local.lisp
+++ b/src/connection/local.lisp
@@ -81,5 +81,5 @@
        (detype-pathname temp) (detype-pathname path)))))
 
 (defmethod connection-connattr
-    ((connection local-connection) (k (eql :XDG-CACHE-HOME)))
+    ((connection local-connection) (k (eql :XDG_CACHE_HOME)))
   (uiop:xdg-cache-home))
diff --git a/src/connection/setuid.lisp b/src/connection/setuid.lisp
index 1f85160..59622dd 100644
--- a/src/connection/setuid.lisp
+++ b/src/connection/setuid.lisp
@@ -44,7 +44,7 @@
                    :remote-user ,(cdr (assoc :name ent))
                    :remote-home ,(ensure-directory-pathname
                                   (cdr (assoc :home ent)))
-                   :XDG-CACHE-HOME ,xdg-cache-home))
+                   :XDG_CACHE_HOME ,xdg-cache-home))
      remaining)))
 
 (defmethod post-fork ((connection setuid-connection))