1 files changed, 11 insertions, 8 deletions

diff --git a/gnu/system/linux-container.scm b/gnu/system/linux-container.scm
index 8e208d3a704..e9be2c9d8a4 100644
--- a/gnu/system/linux-container.scm
+++ b/gnu/system/linux-container.scm
@@ -78,12 +78,13 @@ from OS that are needed on the bare metal and not in a container."
 (define dummy-networking-service-type
   (shepherd-service-type
    'dummy-networking
-   (const (shepherd-service
-           (documentation "Provide loopback and networking without actually
+   (lambda (provision)
+     (shepherd-service
+      (documentation "Provide loopback and networking without actually
 doing anything.")
-           (provision '(loopback networking))
-           (start #~(const #t))))
-   #f
+      (provision provision)
+      (start #~(const #t))))
+   '(loopback networking)
    (description "Provide loopback and networking without actually doing
 anything.  This service is used by guest systems running in containers, where
 networking support is provided by the host.")))
@@ -135,7 +136,7 @@ containerized OS.  EXTRA-FILE-SYSTEMS is a list of file systems to add to OS."
                  dhcp-client-service-type
                  network-manager-service-type
                  connman-service-type)
-                (list))))
+                (list static-networking-service-type)))) ;loopback
 
   (define services-to-add
     ;; Many Guix services depend on a 'networking' shepherd
@@ -143,8 +144,10 @@ containerized OS.  EXTRA-FILE-SYSTEMS is a list of file systems to add to OS."
     ;; service when we are sure that networking is already set up
     ;; in the host and can be used.  That prevents double setup.
     (if shared-network?
-        (list (service dummy-networking-service-type))
-        '()))
+        (list (service dummy-networking-service-type
+                       '(loopback networking)))
+        (list (service dummy-networking-service-type
+                       '(loopback)))))
 
   (define os-with-base-essential-services
     (operating-system