From e7456d3e9e5e40ecb5ca6c8ff4193691408a6743 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 29 Mar 2019 19:18:04 -0600
Subject: [PATCH] io: avoid some unneeded work when sending paths to rktio

---
 racket/src/io/file/host.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/io/file/host.rkt b/racket/src/io/file/host.rkt
index ad49ba85ee..ca525195ce 100644
--- a/racket/src/io/file/host.rkt
+++ b/racket/src/io/file/host.rkt
@@ -18,7 +18,7 @@
   (let ([p (->path p)])
     (when who
       (security-guard-check-file who p guards))
-    (path-bytes (cleanse-path (path->complete-path p (current-directory))))))
+    (path-bytes (cleanse-path (path->complete-path p current-directory #:wrt-given? #f)))))
 
 (define (->host/as-is p who src)
   (let ([p (->path p)])