Problem with Sheperd after `guix home reconfigure`

[Tanguy LE CARROUR]

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