diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm index 0fbd51de8d..69c8c84190 100644 --- a/gnu/services/virtualization.scm +++ b/gnu/services/virtualization.scm @@ -1500,7 +1500,8 @@ (define service-name (srfi srfi-34)) (guard (c ((service-not-found-error? c) #f)) - (->bool (current-service '#$service-name)))))) + (->bool (live-service-running + (current-service '#$service-name))))))) (define (build-vm-guix-extension config) (define vm-ssh-key