From bdc2bd1055d7623eefb90f216cc63b6f8928ec0d Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Tue, 28 May 2024 20:26:30 +0200
Subject: Fix Docker Shepherd service

---
 tw/services/docker.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/tw/services/docker.scm b/tw/services/docker.scm
index 0f982836..943cf105 100644
--- a/tw/services/docker.scm
+++ b/tw/services/docker.scm
@@ -107,11 +107,12 @@ system that this container relies on."))
                               ,@extra-requirements))
        (documentation (format #f "Run a Docker container called ~s from the image ~s."
                               (maybe-value name) image))
+       (modules `(((srfi srfi-1) #:select (every))
+                  ((srfi srfi-26) #:select (cut))
+                  (ice-9 popen)
+                  (ice-9 textual-ports)
+                  ,@%default-modules))
        (start #~(lambda ()
-                  (use-modules ((srfi srfi-1) #:select (every))
-                               ((srfi srfi-26) #:select (cut))
-                               (ice-9 popen)
-                               (ice-9 textual-ports))
                   (let* ((hex (char-set #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9
                                         #\a #\b #\c #\d #\e #\f #\A #\B #\C #\D #\E #\F))
                          (pipe
-- 
cgit v1.2.3