--- a/src/server_x11.c	2016-08-01 11:58:54.714647794 +0200
+++ b/src/server_x11.c	2016-08-01 11:58:46.606563478 +0200
@@ -151,7 +151,7 @@ DEFINE_COMMAND(open_forwarded_x11)
 #define X11_MIN_DISPLAY 10
 #define X11_MAX_DISPLAY 1000
 
-/* FIXME: Create the /tmp/.X11-unix directory, if needed. Figure out
+/* FIXME: Figure out
  * if and how we should use /tmp/.X17-lock. Consider using display
  * "unix:17" instead of just ":17".
  */
@@ -253,6 +253,7 @@ open_x11_socket(struct ssh_channel *chan
 
   old_umask = umask(0077);
   
+  mkdir(X11_SOCKET_DIR, S_IRWXU | S_IRWXG | S_IRWXO | S_ISVTX);
   old_cd = lsh_pushd(X11_SOCKET_DIR, &dir, 0, 0);
   if (old_cd < 0)
     {

/><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=3bacd3c76a58ebe70f98be654f09cbd4166093ab'>refs</a><a class='active' href='/guix/log/tests/read-print.scm'>log</a><a href='/guix/tree/tests/read-print.scm?id=3bacd3c76a58ebe70f98be654f09cbd4166093ab'>tree</a><a href='/guix/commit/tests/read-print.scm?id=3bacd3c76a58ebe70f98be654f09cbd4166093ab'>commit</a><a href='/guix/diff/tests/read-print.scm?id=3bacd3c76a58ebe70f98be654f09cbd4166093ab'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/read-print.scm'>
<input type='hidden' name='id' value='3bacd3c76a58ebe70f98be654f09cbd4166093ab'/><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=3bacd3c76a58ebe70f98be654f09cbd4166093ab'>root</a>/<a href='/guix/log/tests?id=3bacd3c76a58ebe70f98be654f09cbd4166093ab'>tests</a>/<a href='/guix/log/tests/read-print.scm?id=3bacd3c76a58ebe70f98be654f09cbd4166093ab'>read-print.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/read-print.scm?id=3bacd3c76a58ebe70f98be654f09cbd4166093ab&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-03-16 23:03:18 +0100'>2023-03-16</span></td><td><a href='/guix/commit/tests/read-print.scm?id=83128f00e9149f3c1bcd4450eb0ed3620a37149c'>read-print: 'read-with-comments' reads comments within gexps.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-07 11:39:50 +0100'>2023-03-07</span></td><td><a href='/guix/commit/tests/read-print.scm?id=0a37921d851b94aef6900214098dc5bd62b46e26'>read-print: Correctly handle comments that follow a list head.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-01-09 17:40:54 +0100'>2023-01-09</span></td><td><a href='/guix/commit/tests/read-print.scm?id=6c343d0d0f6b8560e9eb594ce1d4f984753a35fb'>read-print: Do not use extended notation when printing '1+', '1-', etc.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-20 19:24:31 +0200'>2022-09-20</span></td><td><a href='/guix/commit/tests/read-print.scm?id=7a698da0d04d75f1c49f9ae9f358070acab0f781'>read-print: Correctly support multiple same-named newline forms.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-02 10:49:35 +0200'>2022-09-02</span></td><td><a href='/guix/commit/tests/read-print.scm?id=82968362ead0ed59c64ee8a21fec346c9265a149'>read-print: Define forms for which \n, \t, etc. are not escaped.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-01 18:31:26 +0200'>2022-09-01</span></td><td><a href='/guix/commit/tests/read-print.scm?id=c3b1cfe76b7038f4030d7d207ffc417fed9a7ead'>read-print: Guess the base to use for integers being printed.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-10 16:53:58 +0200'>2022-08-10</span></td><td><a href='/guix/commit/tests/read-print.scm?id=ebda12e1d2c64480bb7d5977e580d8b2eabeb503'>read-print: Report missing closing parens instead of looping.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:54:25 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=6db3b34d7203639ef4286c237a6e536259f92352'>read-print: Add 'case' and 'cond' special forms.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:54:24 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=445a0d134ce735577d1e22f210c2e5ceafc56762'>read-print: Support printing multi-line comments.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=90ef692e9b48732ae2e3921ff5d101e186506a85'>read-print: 'canonicalize-comment' leaves top-level comments unchanged.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=9b00c97de41165beefe3eff936470f8e081ca600'>read-print: Add code to read and write sequences of expressions/blanks.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=077324a16fd6c7d2307bfa52a9863ca25cfc6a52'>read-print: Recognize page breaks.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=f687e27e0385c7f9bab8d967293061158fc3f504'>read-print: Read and render vertical space.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:31 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=5817e222faf46f76fbdb66ba8fd6c8cd643aefb5'>style: Move reader and printer to (guix read-print).</a></td><td>Ludovic Courtès</td></tr>