diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 636d827ff9..492cf8a693 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -10,7 +10,7 @@ ;;; Copyright © 2019 Efraim Flashner ;;; Copyright © 2019 Tobias Geerinckx-Rice ;;; Copyright © 2019 John Soo -;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen +;;; Copyright © 2019, 2023 Janneke Nieuwenhuizen ;;; Copyright © 2020 Florian Pelz ;;; Copyright © 2020, 2021 Brice Waegeneire ;;; Copyright © 2021 qblade @@ -2726,7 +2726,7 @@ (define (static-networking->hurd-pfinet-options config) (match (static-networking-addresses config) ((and addresses (first _ ...)) `("--ipv6" "/servers/socket/26" - "--interface" ,(network-address-device first) + "--interface" ,(string-append "/dev/" (network-address-device first)) ,@(append-map (lambda (address) `(,(if (network-address-ipv6? address) "--address6" @@ -2769,7 +2769,10 @@ (define (network-set-up/hurd config) (format #t "starting '~a~{ ~s~}'~%" #$(file-append hurd "/hurd/pfinet") options) - (apply invoke #$(file-append hurd "/bin/settrans") "-fac" + (apply invoke #$(file-append hurd "/bin/settrans") + "--active" + "--create" + "--keep-active" "/servers/socket/2" #$(file-append hurd "/hurd/pfinet") options)))))))