(services (let ((my-services (list (this-service-type …) (that-service-type …)))) (append my-services (modify-services %desktop-services ...))))