diff --git a/pipes-concurrency.cabal b/pipes-concurrency.cabal
--- a/pipes-concurrency.cabal
+++ b/pipes-concurrency.cabal
@@ -1,5 +1,5 @@
 Name: pipes-concurrency
-Version: 2.0.0
+Version: 2.0.1
 Cabal-Version: >=1.8.0.2
 Build-Type: Simple
 License: BSD3
diff --git a/src/Pipes/Concurrent.hs b/src/Pipes/Concurrent.hs
--- a/src/Pipes/Concurrent.hs
+++ b/src/Pipes/Concurrent.hs
@@ -80,10 +80,13 @@
             Nothing -> return Nothing
             Just a  -> recv (f a)
 
--- Deriving 'Alternative'
 instance Alternative Input where
-    empty   = Input empty
-    x <|> y = Input (recv x <|> recv y)
+    empty   = Input (return Nothing)
+    x <|> y = Input $ do
+        (i, ma) <- fmap ((,) y) (recv x) <|> fmap ((,) x)(recv y)
+        case ma of
+            Nothing -> recv i
+            Just a  -> return (Just a)
 
 instance Monoid (Input a) where
     mempty = empty