diff --git a/typed-racket-lib/typed-racket/base-env/base-env.rkt b/typed-racket-lib/typed-racket/base-env/base-env.rkt
index 65238cc4..e517693a 100644
--- a/typed-racket-lib/typed-racket/base-env/base-env.rkt
+++ b/typed-racket-lib/typed-racket/base-env/base-env.rkt
@@ -3356,7 +3356,11 @@
             (-lst -Bytes)))
 (display-lines
  (->optkey (-lst Univ) [-Output-Port] #:separator Univ #f -Void))
-(find-relative-path (->key -SomeSystemPathlike -SomeSystemPathlike #:more-than-root? Univ #f -SomeSystemPath))
+(find-relative-path (->key -SomeSystemPathlike 
+                           -SomeSystemPathlike 
+                           #:more-than-root? Univ #f
+                           #:normalize-case? Univ #f
+			   -SomeSystemPath))
 (regexp-match*
  (let ((N -Integer)
        (?N (-opt -Integer))