--- a/gameServer/Actions.hs	Sun Feb 27 11:46:41 2011 -0500
+++ b/gameServer/Actions.hs	Sun Feb 27 20:15:48 2011 +0300
@@ -416,6 +416,6 @@
 
 processAction (RestartServer force) = do
     if force then do
-        throw ShutdownException
+        throw RestartException
         else
         processAction $ ModifyServerInfo (\s -> s{restartPending=True})

--- a/gameServer/hedgewars-server.hs	Sun Feb 27 11:46:41 2011 -0500
+++ b/gameServer/hedgewars-server.hs	Sun Feb 27 20:15:48 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 ()