diff --git a/examples/tests/unit-tests.hs b/examples/tests/unit-tests.hs
--- a/examples/tests/unit-tests.hs
+++ b/examples/tests/unit-tests.hs
@@ -546,5 +546,5 @@
     switch1, once1, once2, cycle1, split1, split2 {-, mergeWith1, mergeWith2, mergeWith3,
     coalesce1-} ]
 
-main = forever $ runTestTT tests
+main = {-forever $ -} runTestTT tests
 
diff --git a/sodium.cabal b/sodium.cabal
--- a/sodium.cabal
+++ b/sodium.cabal
@@ -1,5 +1,5 @@
 name:                sodium
-version:             0.10.0.2
+version:             0.11.0.1
 synopsis:            Sodium Reactive Programming (FRP) System
 description:         
   A general purpose Reactive Programming (FRP) system. This is part of a project to
@@ -51,11 +51,15 @@
    * 0.10.0.1 - Fix finalizer issue that caused breakage in ghc-7.8 - thanks Luite Stegeman.
   .
    * 0.10.0.2 - Second attempt.
+  .
+   * 0.11.0.0 - Make 'merge' left-biased, like Reactive Banana.
+  .
+   * 0.11.0.1 - Thank you Samuel Gélineau. Fix regression when using in ghc-7.8: prevent keepAlive from being GC'd early
 
 license:             BSD3
 license-file:        LICENSE
 author:              Stephen Blackheath
-maintainer:          http://blacksapphire.com/antispam/
+maintainer:          Stephen Blackheath <sodium2.stephen@blacksapphire.com>
 copyright:           (c) Stephen Blackheath 2012-2013
 category:            FRP
 build-type:          Simple
@@ -162,5 +166,5 @@
   other-modules:       FRP.Sodium.Plain
   build-depends:       base >= 4.3.0.0 && < 4.8.0.0,
                        containers >= 0.4.0.0 && < 0.6.0.0,
-                       mtl >= 2.0.0.0 && < 2.2.0.0
+                       mtl >= 2.0.0.0 && < 2.3.0.0
   ghc-options:         -O2
diff --git a/src/FRP/Sodium/Plain.hs b/src/FRP/Sodium/Plain.hs
--- a/src/FRP/Sodium/Plain.hs
+++ b/src/FRP/Sodium/Plain.hs
@@ -226,7 +226,8 @@
         (l, push, nodeRef) <- ioReactive newEventImpl
         unlistener <- later $ do
             u1 <- linkedListen ea (Just nodeRef) False push
-            u2 <- linkedListen eb (Just nodeRef) False push
+            u2 <- linkedListen eb (Just nodeRef) False $
+                schedulePrioritized (Just nodeRef) . push
             return (u1 >> u2)
         addCleanup_Listen unlistener l
 
@@ -348,7 +349,10 @@
 -- | Obtain the current value of a behavior.
 sample :: Behavior a -> Reactive a
 {-# NOINLINE sample #-}
-sample = ioReactive . unSample . sampleImpl
+sample beh = ioReactive $ do
+    let sample = sampleImpl beh
+    readIORef (sampleKeepAlive sample)  -- defeat optimizer on ghc-7.8
+    unSample sample
 
 -- | If there's more than one firing in a single transaction, combine them into
 -- one using the specified combining function.