diff --git a/collects/2htdp/private/universe.ss b/collects/2htdp/private/universe.ss
index 47c4da41ce..a1aaec2b45 100644
--- a/collects/2htdp/private/universe.ss
+++ b/collects/2htdp/private/universe.ss
@@ -146,7 +146,6 @@
         (close-output-port (iworld-out p))
         (close-input-port (iworld-in p))
         (send gui add (format "~a !! closed port" (iworld-name p)))
-        (set! iworlds (remq p iworlds))
         (pdisconnect p)
         (cont))