diff --git a/racket/collects/racket/file.rkt b/racket/collects/racket/file.rkt
index e3a5b23449..c27181d4e9 100644
--- a/racket/collects/racket/file.rkt
+++ b/racket/collects/racket/file.rkt
@@ -357,7 +357,7 @@
         (with-handlers ([exn:fail:filesystem:exists? (lambda (exn) 'ok)])
           (close-output-port (open-output-file lock-file #:exists 'error))))
       (((if (eq? kind 'exclusive)
-            (lambda (fn proc) (call-with-output-file fn proc #:exists 'update))
+            (lambda (fn proc) (call-with-output-file* fn proc #:exists 'update))
             call-with-input-file*)
         lock-file
         (lambda (p)