diff --git a/guix/build/activation.scm b/guix/build/activation.scm
index bc62a94e01748105dd53cd9201591a758f5589a6..12c1ca142dd85d33a1ed76489a21d34394c7b05c 100644
--- a/guix/build/activation.scm
+++ b/guix/build/activation.scm
@@ -93,7 +93,7 @@ (define (activate-users+groups users groups)
 each item in GROUPS is a tuple with the group name, group password or #f, and
 numeric gid or #f."
   (define (touch file)
-    (call-with-output-file file (const #t)))
+    (close-port (open-file file "a0b")))
 
   (define activate-user
     (match-lambda