diff --git a/racket/src/io/port/fd-port.rkt b/racket/src/io/port/fd-port.rkt
index bb5f4d430c..6be1f68845 100644
--- a/racket/src/io/port/fd-port.rkt
+++ b/racket/src/io/port/fd-port.rkt
@@ -437,6 +437,9 @@
                              (lambda (fd)
                                (when flush-handle
                                  (plumber-flush-handle-remove! flush-handle))
+                               (if (input-port? port)
+                                   (send fd-input-port port on-close)
+                                   (send fd-output-port port on-close))
                                (fd-close fd fd-refcount)
                                (set-closed-state! port))
                              #f