diff --git a/distributed-process-lifted.cabal b/distributed-process-lifted.cabal
--- a/distributed-process-lifted.cabal
+++ b/distributed-process-lifted.cabal
@@ -2,7 +2,7 @@
 -- further documentation, see http://haskell.org/cabal/users-guide/
 
 name:                distributed-process-lifted
-version:             0.3.0.0
+version:             0.3.0.1
 synopsis:            monad-control style typeclass and transformer instances for Process monad.
 
 description:         This package provides typeclasses and functions for lifting functions and control operations (such as spawnLocal) from the @Process@ monad 
@@ -67,7 +67,7 @@
                      binary, 
                      network-transport, 
                      lifted-base,
-                     network-transport-tcp,
+                     network-transport-tcp >= 0.6 && < 0.7,
                      test-framework >= 0.6 && < 0.9,
                      test-framework-hunit >= 0.3 && < 0.4,
                      rematch >= 0.2 && < 0.3,
diff --git a/src/Control/Distributed/Process/Lifted.hs b/src/Control/Distributed/Process/Lifted.hs
--- a/src/Control/Distributed/Process/Lifted.hs
+++ b/src/Control/Distributed/Process/Lifted.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE FlexibleContexts    #-}
+{-# LANGUAGE MonoLocalBinds      #-}
 {-# LANGUAGE RankNTypes          #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
diff --git a/test/Control/Distributed/Process/Lifted/Tests.hs b/test/Control/Distributed/Process/Lifted/Tests.hs
--- a/test/Control/Distributed/Process/Lifted/Tests.hs
+++ b/test/Control/Distributed/Process/Lifted/Tests.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE CPP #-}
+{-# LANGUAGE MonoLocalBinds      #-}
 module Control.Distributed.Process.Lifted.Tests (tests) where
 
 #if ! MIN_VERSION_base(4,6,0)
diff --git a/test/runTCP.hs b/test/runTCP.hs
--- a/test/runTCP.hs
+++ b/test/runTCP.hs
@@ -5,7 +5,7 @@
 import Control.Distributed.Process.Lifted.Tests (tests)
 
 import Network.Transport.Test (TestTransport(..))
-import Network.Socket (sClose)
+import Network.Socket (close)
 import Network.Transport.TCP
   ( createTransportExposeInternals
   , TransportInternals(socketBetween)
@@ -19,12 +19,15 @@
 main :: IO ()
 main = do
     Right (transport, internals) <-
-      createTransportExposeInternals "127.0.0.1" "8080" defaultTCPParameters
+      createTransportExposeInternals "127.0.0.1"
+                                     "8080"
+                                     (\s -> ("127.0.0.1", s))
+                                     defaultTCPParameters
     ts <- tests TestTransport
       { testTransport = transport
       , testBreakConnection = \addr1 addr2 -> do
           sock <- socketBetween internals addr1 addr2
-          sClose sock
+          close sock
           threadDelay 10000
       }
     args <- getArgs