--- a/gameServer/CoreTypes.hs	Fri Mar 11 22:22:28 2011 +0300
+++ b/gameServer/CoreTypes.hs	Sat Mar 12 22:42:01 2011 +0300
@@ -206,7 +206,9 @@
 
 instance Exception ShutdownException
 
-data ShutdownThreadException = ShutdownThreadException
-     deriving (Show, Typeable)
+data ShutdownThreadException = ShutdownThreadException String
+     deriving Typeable
 
+instance Show ShutdownThreadException where
+    show (ShutdownThreadException s) = "kill: " ++ s
 instance Exception ShutdownThreadException