From 44e26d493d7e1857b9c97b4983dc7becf1c6dd4b Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Sat, 16 Feb 2013 15:17:38 -0500
Subject: [PATCH] try to make tmp file path shorter (for drdr)

---
 collects/tests/unstable/socket.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/unstable/socket.rkt b/collects/tests/unstable/socket.rkt
index 49faef801a..b3152d9767 100644
--- a/collects/tests/unstable/socket.rkt
+++ b/collects/tests/unstable/socket.rkt
@@ -23,7 +23,7 @@
  [(and unix-socket-available? netcat)
   (test-case "unix socket"
     ;; Uses netcat to create a simple unix domain socket server
-    (define tmp (make-temporary-file))
+    (define tmp ((values make-temporary-file)))
     (delete-file tmp)
     (call-in-custodian
      (lambda ()