--- a/gameServer/Actions.hs	Wed Feb 23 18:38:11 2011 +0300
+++ b/gameServer/Actions.hs	Thu Feb 24 22:01:36 2011 +0300
@@ -14,6 +14,7 @@
 import Control.DeepSeq
 import Data.Unique
 import Control.Arrow
+import Control.Exception
 -----------------------------
 import CoreTypes
 import Utils
@@ -415,6 +416,6 @@
 
 processAction (RestartServer force) = do
     if force then do
-        return ()
+        io $ throwIO ShutdownException
         else
         processAction $ ModifyServerInfo (\s -> s{restartPending=True})