diff --git a/collects/typed-racket/optimizer/tool/report.rkt b/collects/typed-racket/optimizer/tool/report.rkt
index d11d481474..060d29cc66 100644
--- a/collects/typed-racket/optimizer/tool/report.rkt
+++ b/collects/typed-racket/optimizer/tool/report.rkt
@@ -66,8 +66,13 @@
         (define data (cdr (vector-ref l 2))) ; get the log-entry part
         (set! log (cons data log)))
       (lambda ()
-        (parameterize ([current-namespace  (make-base-namespace)]
-                       [read-accept-reader #t])
+        (parameterize
+            ([current-namespace  (make-base-namespace)]
+             [current-load-relative-directory
+              (let-values ([(base name _)
+                            (split-path (send this get-port-name))])
+                base)]
+             [read-accept-reader #t])
           (void (expand (tr:read-syntax portname input))))))))
   (filter right-file? (reverse log)))