diff --git a/gnu/build/hurd-boot.scm b/gnu/build/hurd-boot.scm
index 19bdbdf6ae..4407284acb 100644
--- a/gnu/build/hurd-boot.scm
+++ b/gnu/build/hurd-boot.scm
@@ -247,6 +247,19 @@ set."
                             "pty-slave" ,(string-append "/dev/ptyp" n))
                            #o666))))
                     (iota 10 0))
+      ,@(append-map (lambda (n)
+                      (let* ((n (number->string n))
+                             (disk (string-append "hd" n))
+                             (drive (string-append "dev/" disk)))
+                        `((,drive ("/hurd/storeio" ,disk) #o600)
+                          ,@(map (lambda (p)
+                                   (let ((p (number->string p)))
+                                     `(,(string-append drive "s" p)
+                                       ("/hurd/storeio"
+                                        ,(string-append disk "s" p))
+                                       #o660)))
+                                 (iota 4 1)))))
+                    (iota 4 0))
       ,@(append-map (lambda (n)
                       (let* ((n (number->string n))
                              (drive (string-append "dev/wd" n))