--- a/systemd.el
+++ b/systemd.el
@@ -89,7 +89,7 @@
       (insert-file-contents
        (let ((f "unit-directives.txt"))
          (if (null load-file-name) f
-           (expand-file-name f (file-name-directory load-file-name)))))
+           (expand-file-name f (file-name-directory "@SITEETC@")))))
       (split-string (buffer-string))))
   "Configuration directives for systemd.")
 
@@ -105,7 +105,7 @@
       (insert-file-contents
        (let ((f "network-directives.txt"))
          (if (null load-file-name) f
-           (expand-file-name f (file-name-directory load-file-name)))))
+           (expand-file-name f (file-name-directory "@SITEETC@")))))
       (split-string (buffer-string))))
   "Network configuration directives for systemd.")
 
@@ -119,7 +119,7 @@
       (insert-file-contents
        (let ((f "nspawn-directives.txt"))
          (if (null load-file-name) f
-           (expand-file-name f (file-name-directory load-file-name)))))
+           (expand-file-name f (file-name-directory "@SITEETC@")))))
       (split-string (buffer-string))))
   "Namespace container configuration directives for systemd.")