Patch adapted from Sage.
diff -Naur ecl-16.1.2.orig/src/c/file.d ecl-16.1.2/src/c/file.d
--- ecl-16.1.2.orig/src/c/file.d	2016-05-11 13:10:51.867673867 +1200
+++ ecl-16.1.2/src/c/file.d	2016-05-11 14:44:48.121907307 +1200
@@ -3354,8 +3354,10 @@
   ecl_disable_interrupts();
   do {
     out = fwrite(c, sizeof(char), n, IO_STREAM_FILE(strm));
-  } while (out < n && restartable_io_error(strm, "fwrite"));
-  ecl_enable_interrupts();
+  /* Ignore write errors to stderr to avoid an infinite loop */
+  } while (out < n && (IO_STREAM_FILE(strm) != stderr) && restartable_io_error(strm, "fwrite"));
+
+  ecl_enable_interrupts();
   return out;
 }
 
d3c057c4b8'/><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=d7e73930c004c902f78cb4b80eba88d3c057c4b8'>refs</a><a class='active' href='/guix/log/gnu/services/admin.scm'>log</a><a href='/guix/tree/gnu/services/admin.scm?id=d7e73930c004c902f78cb4b80eba88d3c057c4b8'>tree</a><a href='/guix/commit/gnu/services/admin.scm?id=d7e73930c004c902f78cb4b80eba88d3c057c4b8'>commit</a><a href='/guix/diff/gnu/services/admin.scm?id=d7e73930c004c902f78cb4b80eba88d3c057c4b8'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/services/admin.scm'>
<input type='hidden' name='id' value='d7e73930c004c902f78cb4b80eba88d3c057c4b8'/><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=d7e73930c004c902f78cb4b80eba88d3c057c4b8'>root</a>/<a href='/guix/log/gnu?id=d7e73930c004c902f78cb4b80eba88d3c057c4b8'>gnu</a>/<a href='/guix/log/gnu/services?id=d7e73930c004c902f78cb4b80eba88d3c057c4b8'>services</a>/<a href='/guix/log/gnu/services/admin.scm?id=d7e73930c004c902f78cb4b80eba88d3c057c4b8'>admin.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/gnu/services/admin.scm?id=d7e73930c004c902f78cb4b80eba88d3c057c4b8&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-08-24 23:23:57 +0200'>2020-08-24</span></td><td><a href='/guix/commit/gnu/services/admin.scm?id=fe42e5f39c9b36f02beec246b376a50e41114b84'>services: unattended-upgrade: Log output of the 'guix' commands.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-08-24 23:23:57 +0200'>2020-08-24</span></td><td><a href='/guix/commit/gnu/services/admin.scm?id=0d203eeaa69a42a914a9981449805014ab6b7b77'>services: unattended-upgrade: Add 'operating-system-file' field.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-07-27 12:06:36 +0200'>2020-07-27</span></td><td><a href='/guix/commit/gnu/services/admin.scm?id=79501f26ab6d82c0256ff786a5dfb0000b52ccd3'>services: Add 'unattended-upgrade-service-type'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-06 11:03:39 +0200'>2020-05-06</span></td><td><a href='/guix/commit/gnu/services/admin.scm?id=ab034adfe86333fccd6afe476806f169e2074d69'>services: rottlog: Append '.gz' to rotated file.</a><span class='msg-avail'>...</span></td><td>Brice Waegeneire</td></tr>
<tr><td><span title='2019-06-15 18:15:23 +0200'>2019-06-15</span></td><td><a href='/guix/commit/gnu/services/admin.scm?id=f3d797005374e5333c7596fe86b4a524ab1b9b11'>services: Remove unneeded imports that led to cycles.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-12-23 17:57:06 +0100'>2018-12-23</span></td><td><a href='/guix/commit/gnu/services/admin.scm?id=83715a7eec81f41a4163a3230d0d8bbbfeb0a5ed'>services: Fix typo in (gnu services admin).</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-10-04 09:32:51 +0200'>2018-10-04</span></td><td><a href='/guix/commit/gnu/services/admin.scm?id=89fdd9ee0cc8817283449b33a8c1a2604c575c7e'>services: rottlog: Use command strings in the mcron jobs.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-09-10 12:12:50 +0200'>2018-09-10</span></td><td><a href='/guix/commit/gnu/services/admin.scm?id=19de8273eefceac1ba6ddc8d7e374a13f57c678b'>services: tailon: Move to (gnu services web).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>