diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 0df4f652dae593b5b3dd70d8d7891b97b2304f7a..bab07aa4b7313e4b6547553d6b19755e7f38c1fa 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -409,6 +409,10 @@ (define* (udev-service #:key (udev udev))
              (requirement '(root-file-system))
              (documentation "Populate the /dev directory.")
              (start #~(lambda ()
+                        ;; Allow udev to find the modules.
+                        (setenv "LINUX_MODULE_DIRECTORY"
+                                "/run/booted-system/kernel/lib/modules")
+
                         (let ((pid (primitive-fork)))
                           (case pid
                             ((0)
@@ -421,6 +425,9 @@ (define* (udev-service #:key (udev udev))
                              (execl (string-append #$udev "/libexec/udev/udevd")
                                     "udevd"))
                             (else
+                             ;; Wait for things to settle down.
+                             (system* (string-append #$udev "/bin/udevadm")
+                                      "settle")
                              ;; Create a bunch of devices.
                              (system* (string-append #$udev "/bin/udevadm")
                                       "trigger")