diff --git a/racket/src/io/port/fd-port.rkt b/racket/src/io/port/fd-port.rkt index e2f2d4fac8..cad56fa521 100644 --- a/racket/src/io/port/fd-port.rkt +++ b/racket/src/io/port/fd-port.rkt @@ -69,7 +69,7 @@ (lambda () (send fd-input-port this on-close) (fd-close fd fd-refcount) - (unsafe-custodian-unregister fd custodian-reference) + (unsafe-custodian-unregister this custodian-reference) (close-peek-buffer))] [file-position @@ -252,7 +252,7 @@ (plumber-flush-handle-remove! flush-handle) (set! bstr #f) (fd-close fd fd-refcount) - (unsafe-custodian-unregister fd custodian-reference)))] + (unsafe-custodian-unregister this custodian-reference)))] ;; in atomic mode [file-position