diff --git a/Control/Event/Timeout.hs b/Control/Event/Timeout.hs
--- a/Control/Event/Timeout.hs
+++ b/Control/Event/Timeout.hs
@@ -12,6 +12,7 @@
 import Control.Event
 import System.Time
 
+{-# NOINLINE evtSys #-}
 evtSys = unsafePerformIO initEventSystem
 
 newtype TimeoutTag = TTag EventId
diff --git a/control-event.cabal b/control-event.cabal
--- a/control-event.cabal
+++ b/control-event.cabal
@@ -1,5 +1,5 @@
 name:                control-event
-version:             0.3.0
+version:             0.3.1
 synopsis:            Event scheduling system.
 description:         Allows scheduling and canceling of IO actions to be
                      executed at a specified future time.