--- a/gameServer/hedgewars-server.hs	Sun Feb 27 19:32:44 2011 +0300
+++ b/gameServer/hedgewars-server.hs	Sun Feb 27 20:15:09 2011 +0300
@@ -7,6 +7,7 @@
 import Control.Concurrent.Chan
 import qualified Control.Exception as E
 import System.Log.Logger
+import System.Process
 -----------------------------------
 import Opts
 import CoreTypes
@@ -43,7 +44,7 @@
 handleRestart :: ShutdownException -> IO ()
 handleRestart ShutdownException = return ()
 handleRestart RestartException = do
-    
+    _ <- createProcess (proc "./hedgewars-server" [])
     return ()
 
 main :: IO ()