# Pastebin xnNRGbIB
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index c43f39fe32..50a620f033 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -355,20 +355,22 @@ (define %root-file-system-shepherd-service
 
              (let ((null (%make-void-port "w")))
                ;; Redirect the default output ports.
-               (set-current-output-port null)
-               (set-current-error-port null)
 
                ;; Close /dev/console.
                (for-each close-fdes '(0 1 2))
 
                ;; At this point, there should be no open files left so the
                ;; root file system can be re-mounted read-only.
-               (let loop ((n 10))
+               (let loop ((n 100))
                  (unless (catch 'system-error
                            (lambda ()
+                            (format #t
+                              "Root readonly remount. take ~s~%" (- 100 n))
                              (mount #f "/" #f
                                     (logior MS_REMOUNT MS_RDONLY)
                                     #:update-mtab? #f)
+                            (format #t
+                              "Root finally readonly mounted in take ~s~%" (- 100 n))
                              #t)
                            (const #f))
                    (unless (zero? n)