diff --git a/Data/Conduit/TMChan.hs b/Data/Conduit/TMChan.hs
--- a/Data/Conduit/TMChan.hs
+++ b/Data/Conduit/TMChan.hs
@@ -46,7 +46,7 @@
                   case a of
                     Just x -> return $ Open src x
                     Nothing -> return $ Closed
-        close = return () -- close is done by the sink.
+        close = liftIO . atomically $ closeTMChan ch
 {-# INLINE sourceTMChan #-}
 
 -- | A simple wrapper around a TMChan. As data is pushed into this sink, it
diff --git a/stm-conduit.cabal b/stm-conduit.cabal
--- a/stm-conduit.cabal
+++ b/stm-conduit.cabal
@@ -1,5 +1,5 @@
 Name:                stm-conduit
-Version:             0.2.0
+Version:             0.2.1
 Synopsis:            Introduces conduits to channels, and promotes using
                      conduits concurrently.
 Description:         Provides two simple conduit wrappers around STM
@@ -20,10 +20,10 @@
     
     -- Packages needed in order to build this package.
     Build-depends:     base ==4.*,
-                        transformers ==0.2.*,
-                        stm == 2.2.*,
-                        stm-chans ==1.2.*,
-                        conduit ==0.2.*
+                       transformers ==0.2.*,
+                       stm == 2.2.*,
+                       stm-chans ==1.2.*,
+                       conduit ==0.2.*
 
     ghc-options:       -Wall -fwarn-tabs