Copied from Debian.

From: Santiago Vila <sanvila@debian.org>
Subject: zipinfo.c: Do not crash when hostver byte is >= 100

--- a/zipinfo.c
+++ b/zipinfo.c
@@ -2114,7 +2114,7 @@
             else
                 attribs[9] = (xattr & UNX_ISVTX)? 'T' : '-';  /* T==undefined */
 
-            sprintf(&attribs[12], "%u.%u", hostver/10, hostver%10);
+            sprintf(&attribs[11], "%2u.%u", hostver/10, hostver%10);
             break;
 
     } /* end switch (hostnum: external attributes format) */
: <a href='/guix/'>guix</a></td><td class='form'><form method='get'>
<input type='hidden' name='id' value='7ec16e7a5211f5d6d6a6cb113c215681772af5c2'/><select name='h' onchange='this.form.submit();'>
<option value='koszko' selected='selected'>koszko</option>
<option value='koszko-scripts'>koszko-scripts</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=7ec16e7a5211f5d6d6a6cb113c215681772af5c2'>refs</a><a class='active' href='/guix/log/tests/store-roots.scm'>log</a><a href='/guix/tree/tests/store-roots.scm?id=7ec16e7a5211f5d6d6a6cb113c215681772af5c2'>tree</a><a href='/guix/commit/tests/store-roots.scm?id=7ec16e7a5211f5d6d6a6cb113c215681772af5c2'>commit</a><a href='/guix/diff/tests/store-roots.scm?id=7ec16e7a5211f5d6d6a6cb113c215681772af5c2'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/store-roots.scm'>
<input type='hidden' name='id' value='7ec16e7a5211f5d6d6a6cb113c215681772af5c2'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=7ec16e7a5211f5d6d6a6cb113c215681772af5c2'>root</a>/<a href='/guix/log/tests?id=7ec16e7a5211f5d6d6a6cb113c215681772af5c2'>tests</a>/<a href='/guix/log/tests/store-roots.scm?id=7ec16e7a5211f5d6d6a6cb113c215681772af5c2'>store-roots.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/store-roots.scm?id=7ec16e7a5211f5d6d6a6cb113c215681772af5c2&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-08-18 16:10:08 +0200'>2023-08-18</span></td><td><a href='/guix/commit/tests/store-roots.scm?id=4b1fdd44ed87dc07d23cc9313a8b6b14d0646923'>tests: store-roots: Remove bogus test.</a><span class='msg-avail'>...<span class='msg-tooltip'>This test was added in 1261ce15233cbf7e24de9959df86a23b46314a28 but it
proved to be bogus: &lt;https://issues.guix.gnu.org/64760&gt;.

* tests/store-roots.scm ("gc-roots, initial"): Remove.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-06-18 23:36:25 +0200'>2023-06-18</span></td><td><a href='/guix/commit/tests/store-roots.scm?id=1261ce15233cbf7e24de9959df86a23b46314a28'>store: Tolerate non-existent GC root directories.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/store/roots.scm (gc-roots): Wrap 'scandir*' call in 'catch'.
* tests/store-roots.scm ("gc-roots, initial"): New test.  Move
'open-connection' call below.
</span></span></td><td>Ludovic Courtès</td></tr>
tors)))

unted".  The unique
  ;; file system identifiers there ("UUIDs") can be obtained
  ;; by running 'blkid' in a terminal.

...

This is strange because call-with-output-file uses the O_TRUNC flag which
resets the file size to zero. Remove the configuration file before writing it
as a work-around.

* gnu/installer/tests.scm (edit-configuration-file): Remove the configuration
file before re-writing it.
</span></span></td><td>Mathieu Othacehe</td></tr>