diff --git a/collects/tests/typed-scheme/unit-tests/typecheck-tests.rkt b/collects/tests/typed-scheme/unit-tests/typecheck-tests.rkt
index d49ec88f..73c93a54 100644
--- a/collects/tests/typed-scheme/unit-tests/typecheck-tests.rkt
+++ b/collects/tests/typed-scheme/unit-tests/typecheck-tests.rkt
@@ -1162,7 +1162,7 @@
               (t:-> -Pathlike ManyUniv))
 
         (tc-e (call-with-file-lock/timeout #f 'exclusive (lambda () 'res) (lambda () 'err)
-                #:get-lock-file (lambda () "lock")
+                #:lock-file "lock"
                 #:delay .01
                 #:max-delay .2) (one-of/c 'res 'err))
 
diff --git a/collects/typed-scheme/base-env/base-env.rkt b/collects/typed-scheme/base-env/base-env.rkt
index c31ff602..d75da747 100644
--- a/collects/typed-scheme/base-env/base-env.rkt
+++ b/collects/typed-scheme/base-env/base-env.rkt
@@ -835,7 +835,7 @@
          (one-of/c 'shared 'exclusive)
          (-> a)
          (-> a)
-         #:get-lock-file (-> -Pathlike) #f
+         #:lock-file (-opt -Pathlike) #f
          #:delay -Real #f
          #:max-delay -Real #f
           a))]