diff --git a/periodic-client.cabal b/periodic-client.cabal
--- a/periodic-client.cabal
+++ b/periodic-client.cabal
@@ -1,5 +1,5 @@
 name:                periodic-client
-version:             1.1.7.1
+version:             1.1.7.2
 synopsis:            Periodic task system haskell client.
 description:         Periodic task system haskell client library.
 homepage:            https://github.com/Lupino/haskell-periodic/tree/master/periodic-client#readme
@@ -8,7 +8,7 @@
 author:              Li Meng Jun
 maintainer:          lmjubuntu@gmail.com
 copyright:           MIT
-category:            value
+category:            System,Web
 build-type:          Simple
 extra-source-files:  README.md
 cabal-version:       >=1.10
diff --git a/src/Periodic/Trans/Client.hs b/src/Periodic/Trans/Client.hs
--- a/src/Periodic/Trans/Client.hs
+++ b/src/Periodic/Trans/Client.hs
@@ -31,7 +31,7 @@
 import qualified Metro.Conn                   as Conn
 import           Metro.Node                   (NodeMode (..), SessionMode (..),
                                                initEnv1, request,
-                                               setDefaultSessionTimeout,
+                                               setDefaultSessionTimeout1,
                                                setNodeMode, setSessionMode,
                                                startNodeT, withSessionT)
 import           Metro.Session                (send)
@@ -67,6 +67,7 @@
               _      -> ""
 
   clientEnv <- initEnv1 mapEnv connEnv () (Nid nid) sessionGen
+  setDefaultSessionTimeout1 clientEnv 100
 
   runClientT clientEnv $ do
     void . async $ forever $ do
@@ -79,7 +80,6 @@
   where mapEnv =
           setNodeMode Multi
           . setSessionMode SingleAction
-          . setDefaultSessionTimeout 100
 
 dropFunc
   :: (MonadUnliftIO m, Transport tp)
diff --git a/src/Periodic/Trans/Worker.hs b/src/Periodic/Trans/Worker.hs
--- a/src/Periodic/Trans/Worker.hs
+++ b/src/Periodic/Trans/Worker.hs
@@ -35,7 +35,7 @@
 import           Metro.Node                   (NodeMode (..), SessionMode (..),
                                                initEnv1, newSessionEnv,
                                                nextSessionId, runSessionT_,
-                                               setDefaultSessionTimeout,
+                                               setDefaultSessionTimeout1,
                                                setNodeMode, setSessionMode,
                                                startNodeT_, withEnv,
                                                withSessionT)
@@ -106,6 +106,7 @@
   taskSize <- newTVarIO 0
 
   jobEnv1 <- initEnv1 mapEnv connEnv Nothing (Nid nid) sessionGen
+  setDefaultSessionTimeout1 jobEnv1 100
 
   let wEnv = WorkerEnv {..}
 
@@ -122,7 +123,6 @@
   where mapEnv =
           setNodeMode Multi
           . setSessionMode SingleAction
-          . setDefaultSessionTimeout 100
 
 filterPacketM :: MonadIO m => JobList -> Packet ServerCommand -> m Bool
 filterPacketM jl rpkt = do