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)])