diff --git a/src/Transient/Move.hs b/src/Transient/Move.hs
--- a/src/Transient/Move.hs
+++ b/src/Transient/Move.hs
@@ -381,10 +381,11 @@
 
 
 getWebServerNode :: TransIO Node
-getWebServerNode = liftIO $
+getWebServerNode = liftIO $ do
 
-   createNode   <$> (fromJSValUnchecked js_hostname)
-                <*> (fromIntegral <$> (fromJSValUnchecked js_port :: IO Int))
+   h <- fromJSValUnchecked js_hostname
+   p <- fromIntegral <$> (fromJSValUnchecked js_port :: IO Int)
+   createNode h p
 
 
 
@@ -926,7 +927,7 @@
 listen node = onAll $ do
         addNodes [node]
         events <- liftIO $ newIORef M.empty
-        let conn=  (defConnection 8192){myNode=node,comEvent=events}
+        conn <-  defConnection >>= \c -> return c{myNode=node,comEvent=events}
         setData conn
         r <- listenResponses
         execLog r
diff --git a/src/Transient/Move/Services.hs b/src/Transient/Move/Services.hs
--- a/src/Transient/Move/Services.hs
+++ b/src/Transient/Move/Services.hs
@@ -35,21 +35,6 @@
 import Data.Monoid
 --import Data.TCache hiding(onNothing)
 
--- for the example
-import System.Environment
-
---startServices :: Cloud ()
---startServices= local $ do
---  node <-  getMyNode
---  liftIO $ print node
---  let servs =   nodeServices node
---  mapM_ start  servs
---  where
---  start (package,program)= liftIO $ do
---          let prog= pathExe (name package) program port
---          liftIO $ print prog
---          createProcess $ shell prog
-
 
 pathExe package program port= {-"./"++package++"/dist/build/"++package++"/"++  -} program
                                        ++ " -p start/" ++ show port
diff --git a/transient-universe.cabal b/transient-universe.cabal
--- a/transient-universe.cabal
+++ b/transient-universe.cabal
@@ -1,5 +1,5 @@
 name: transient-universe
-version: 0.3.2.2
+version: 0.3.2.3
 cabal-version: >=1.10
 build-type: Simple
 license: MIT