From f2fb1bedc9e32b7848e1345d9445c6afc1a4296b Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 4 Nov 2018 16:19:41 +0100
Subject: [PATCH] tar: Cater for Guix bootstrap-guile's UTF-8 default.

* gash/ustar.scm (read-ustar-file): Cater for Guix bootstrap-guile's
UTF-8 default.
---
 gash/ustar.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gash/ustar.scm b/gash/ustar.scm
index 449836c..b8c7bb5 100644
--- a/gash/ustar.scm
+++ b/gash/ustar.scm
@@ -467,6 +467,7 @@
          (dir (dirname file-name))
          (extract? (and extract? (not (string-null? file-name))))
          (thunk (lambda _
+                  (set-port-encoding! (current-output-port) "ISO-8859-1") ; bootstrap-guile uses default UTF-8
                   (let loop ((read 0))
                     (and (< read size)
                          (let ((record (read-ustar-record port)))