Problem with Sheperd after `guix home reconfigure`

[Tanguy LE CARROUR <tanguy@bioneland.org>]

Hi Guix,

This morning I `guix pull` and `guix system reconfigure` my system
and everything seemed to be OK. But, when I `guix home reconfigure`,
I got an error message:

```
Loading /gnu/store/x103955zkwzkbmb9hji0dxc5fk7l8c3q-shepherd.conf.
herd: error: exception caught while executing 'load' on service 'root':
Unbound variable: %user-log-dir
```

The config contains the following:

```
$ cat /gnu/store/x103955zkwzkbmb9hji0dxc5fk7l8c3q-shepherd.conf
(begin (use-modules (srfi srfi-34) (system repl error-handling)) (apply register-services (map (lambda (file) (load file)) (quote ("/gnu/store/xz6amxpc572hirdysivd4gmvivfibzkh-shepherd-transmission.scm" "/gnu/store/wwkmsgbi8jc0nysgflgg10sqmqmxs8dm-shepherd-tor.scm" "/gnu/store/kzlmpjlbzz7fmvb32f96qd7wnw0rx4nn-shepherd-mpd.scm" "/gnu/store/7qa23wxmmqf50iybpd86qyg64977mdzm-shepherd-mcron.scm")))) (action (quote root) (quote daemonize)) (format #t "Starting services...~%") (let ((services-to-start (quote (mpd mcron)))) (if (defined? (quote start-in-the-background)) (start-in-the-background services-to-start) (for-each start services-to-start)) (redirect-port (open-input-file "/dev/null") (current-input-port))))
```

The only mention to `%user-log-dir` seems to be in `...-shepherd-mcron.scm`:

```
$ cat /gnu/store/7qa23wxmmqf50iybpd86qyg64977mdzm-shepherd-mcron.scm
(eval-when (expand load eval) (let ((extensions (quote ())) (prepend (lambda (items lst) (let loop ((items items) (lst lst)) (if (null? items) lst (loop (cdr items) (cons (car items) (delete (car items) lst)))))))) (set! %load-path (prepend (cons "/gnu/store/5bgqil67vfaymb4q3pxp2xb5lqvki81x-module-import" (map (lambda (extension) (string-append extension "/share/guile/site/" (effective-version))) extensions)) %load-path)) (set! %load-compiled-path (prepend (cons "/gnu/store/gknigc86qbb433gp83jg7nd1pzksswir-module-import-compiled" (map (lambda (extension) (string-append extension "/lib/guile/" (effective-version) "/site-ccache")) extensions)) %load-compiled-path))))(begin (use-modules (srfi srfi-1) (srfi srfi-26) (ice-9 popen) (ice-9 rdelim) (ice-9 match) (shepherd service) (oop goops) ((guix build utils) #:hide (delete)) (guix build syscalls)) (make <service> #:docstring (quote "[No documentation.]") #:provides (quote (mcron)) #:requires (quote ()) #:one-shot? (quote #f) #:respawn? (quote #t) #:start (make-forkexec-constructor (list "/gnu/store/mxjkd7644pzs00sq8x47s9k9kcmlr5ib-mcron-1.2.1-0.5fd0ccd/bin/mcron" "--log" "--log-format" "~1@*~a ~a: ~a~%" "/gnu/store/wynnrkgj67rc7s20mv122vlkzvkpm3gh-mcron-job" "/gnu/store/cgbn0dgfwx09hfpqjs5raz8gw99m0lbq-mcron-job") #:environment-variables (cons* "GUILE_AUTO_COMPILE=0" "PATH=/run/current-system/profile/bin" (remove (cut string-prefix? "PATH=" <>) (environ))) #:log-file (string-append %user-log-dir "/mcron.log")) #:stop (make-kill-destructor) #:actions (make-actions (schedule "Display jobs that are going to be scheduled." (lambda* (_ #:optional (n "5")) (setenv "GUILE_AUTO_COMPILE" "0") (let ((pipe (open-pipe* OPEN_READ "/gnu/store/mxjkd7644pzs00sq8x47s9k9kcmlr5ib-mcron-1.2.1-0.5fd0ccd/bin/mcron" (string-append "--schedule=" n) "/gnu/store/wynnrkgj67rc7s20mv122vlkzvkpm3gh-mcron-job" "/gnu/store/cgbn0dgfwx09hfpqjs5raz8gw99m0lbq-mcron-job"))) (let loop () (match (read-line pipe (quote concat)) ((? eof-object?) (catch (quote system-error) (lambda () (zero? (close-pipe pipe))) (lambda args (or (= ECHILD (system-error-errno args)) (apply throw args))))) (line (display line) (loop))))))))))
```

Any idea what might be going wrong?!

Regards,

-- 
Tanguy