diff --git a/modules/rosenthal/services/base.scm b/modules/rosenthal/services/base.scm index 5fcf205..b447c20 100644 --- a/modules/rosenthal/services/base.scm +++ b/modules/rosenthal/services/base.scm @@ -21,9 +21,10 @@ (session ) system target) (match-record session (tuigreet) - (lower-object - (program-file "tuigreet-wrapper" - #~(execl #$tuigreet #$tuigreet - "--issue" "--time" "--user-menu" "--asterisks" - "--power-shutdown" "loginctl power-off" - "--power-reboot" "loginctl reboot"))))) + (let ((tuigreet (file-append tuigreet "/bin/tuigreet"))) + (lower-object + (program-file "tuigreet-wrapper" + #~(execl #$tuigreet #$tuigreet + "--issue" "--time" "--user-menu" "--asterisks" + "--power-shutdown" "loginctl power-off" + "--power-reboot" "loginctl reboot"))))))