diff --git a/SshPrompt.hs b/SshPrompt.hs
index c1d69b0c..638aedf8 100644
--- a/SshPrompt.hs
+++ b/SshPrompt.hs
@@ -20,6 +20,7 @@ module XMonadContrib.SshPrompt (
 
 import XMonad
 import XMonadContrib.XPrompt
+import XMonadContrib.RunInXTerm
 
 import Control.Monad
 import System.Directory
@@ -47,7 +48,7 @@ sshPrompt c = do
   mkXPrompt Ssh c (mkComplFunFromList sc) ssh
 
 ssh :: String -> X ()
-ssh s = spawn $ "exec xterm -e ssh " ++ s
+ssh s = runInXTerm ("ssh " ++ s)
  
 sshComplList :: IO [String]
 sshComplList = do