--- a/gameServer/Actions.hs	Thu Feb 24 22:01:36 2011 +0300
+++ b/gameServer/Actions.hs	Sun Feb 27 19:32:14 2011 +0300
@@ -416,6 +416,6 @@
 
 processAction (RestartServer force) = do
     if force then do
-        io $ throwIO ShutdownException
+        throw ShutdownException
         else
         processAction $ ModifyServerInfo (\s -> s{restartPending=True})