--- libraries/base/GHC/Event/Control.hs.orig	2013-02-04 01:43:24.166460985 +0400
+++ libraries/base/GHC/Event/Control.hs	2013-02-03 21:12:48.846838512 +0400
@@ -117,12 +117,14 @@
 closeControl w = do
   _ <- c_close . fromIntegral . controlReadFd $ w
   _ <- c_close . fromIntegral . controlWriteFd $ w
+  _ <- c_setIOManagerControlFd (-1)
 #if defined(HAVE_EVENTFD)
   _ <- c_close . fromIntegral . controlEventFd $ w
 #else
   _ <- c_close . fromIntegral . wakeupReadFd $ w
   _ <- c_close . fromIntegral . wakeupWriteFd $ w
 #endif
+  _ <- c_setIOManagerWakeupFd (-1)
   return ()
 
 io_MANAGER_WAKEUP, io_MANAGER_DIE :: Word8