diff --git a/reflex.cabal b/reflex.cabal
--- a/reflex.cabal
+++ b/reflex.cabal
@@ -1,5 +1,5 @@
 Name: reflex
-Version: 0.1.0
+Version: 0.1.1
 Synopsis: Higher-order Functional Reactive Programming
 Description: Reflex is a high-performance, deterministic, higher-order Functional Reactive Programming system
 License: BSD3
diff --git a/src/Reflex/Spider/Internal.hs b/src/Reflex/Spider/Internal.hs
--- a/src/Reflex/Spider/Internal.hs
+++ b/src/Reflex/Spider/Internal.hs
@@ -382,7 +382,7 @@
   EventCoincidence _ -> "EventCoincidence"
 
 data EventSubscribed a
-   = EventSubscribedRoot !(RootSubscribed a)
+   = EventSubscribedRoot {-# NOUNPACK #-} (RootSubscribed a)
    | EventSubscribedNever
    | forall b. EventSubscribedPush !(PushSubscribed b a)
    | forall k. (GCompare k, a ~ DMap k) => EventSubscribedMerge !(MergeSubscribed k)
@@ -765,6 +765,10 @@
   liftIO $ subscribeEventSubscribed subd ws
   return subd
 
+noinlineFalse :: Bool
+noinlineFalse = False
+{-# NOINLINE noinlineFalse #-}
+
 getRootSubscribed :: Root a -> EventM (RootSubscribed a)
 getRootSubscribed r = do
   mSubscribed <- liftIO $ readIORef $ rootSubscribed r
@@ -779,6 +783,7 @@
       -- Strangely, init needs the same stuff as a RootSubscribed has, but it must not be the same as the one that everyone's subscribing to, or it'll leak memory
       uninit <- rootInit r $ RootTrigger (subscribersRef, rootOccurrence r)
       addFinalizer subscribed $ do
+        when noinlineFalse $ putStr "" -- For some reason, without this line, the finalizer will run earlier than it should
 --        putStrLn "Uninit root"
         uninit
       liftIO $ writeIORef (rootSubscribed r) $ Just subscribed