diff --git a/racket/src/thread/custodian.rkt b/racket/src/thread/custodian.rkt
index dd4c99145a..01b9ed8e6b 100644
--- a/racket/src/thread/custodian.rkt
+++ b/racket/src/thread/custodian.rkt
@@ -471,7 +471,7 @@
                                             ;; Charge anything directly reachable from place registers
                                             ;; to the root custodian; that will include scheduled threads,
                                             ;; so they will be known reachable for accounting
-                                            (list (place-host-roots pl))
+                                            (list pl)
                                             ;; Not the root
                                             null)))
                     (let loop ([roots roots]