diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,7 @@
+## 0.4.1
+
+* Reduce time used by stSetup
+
 ## 0.4.0
 
 * Add NetworkStatus and function for checking network-reachablity
diff --git a/Test/Hspec/Server/Core.hs b/Test/Hspec/Server/Core.hs
--- a/Test/Hspec/Server/Core.hs
+++ b/Test/Hspec/Server/Core.hs
@@ -5,7 +5,7 @@
 import System.Exit
 import Control.Monad.Trans.Reader
 import qualified Test.Hspec.Core.Spec as Hspec
-import Test.Hspec (before)
+import Test.Hspec (beforeAll)
 
 import Control.Monad
 import Data.List
@@ -43,7 +43,7 @@
 type ServerExample dat = ReaderT dat IO
 
 with :: ServerType dat => dat -> Hspec.SpecWith dat -> Hspec.Spec
-with d = before (stSetup d)
+with d = beforeAll (stSetup d)
 
 instance (ServerType dat) => Hspec.Example (ServerExample dat ()) where
   type Arg (ServerExample dat ()) = dat
diff --git a/Test/Hspec/Server/ServerType.hs b/Test/Hspec/Server/ServerType.hs
--- a/Test/Hspec/Server/ServerType.hs
+++ b/Test/Hspec/Server/ServerType.hs
@@ -62,7 +62,7 @@
 
 instance ServerType Vagrant where
   stSetup a = do
-    (e,conf,_) <- readProcessWithExitCode "vagrant" ["ssh-config"] []
+    (e,conf,_) <- readProcessWithExitCode "vagrant" ["ssh-config",vHostName a] []
     when (e /= ExitSuccess) $ do
       error "vagrant setup error"
     os' <- detectOS (a {vConf = Just conf})
diff --git a/hspec-server.cabal b/hspec-server.cabal
--- a/hspec-server.cabal
+++ b/hspec-server.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                hspec-server
-version:             0.4.0
+version:             0.4.1
 synopsis:            Test Framework for checking server's status
 description:         Hspec-Server is test framework for checking server's status.
                      It is inspired by the Ruby library ServerSpec.