--- a/hedgewars/uIO.pas	Fri Oct 11 11:55:31 2013 +0200
+++ b/hedgewars/uIO.pas	Fri Oct 11 17:43:13 2013 +0200
@@ -416,6 +416,9 @@
 procedure chFatalError(var s: shortstring);
 begin
     SendIPC('E' + s);
+    // TODO: should we try to clean more stuff here?
+    SDL_Quit;
+    halt(2)
 end;
 
 procedure doPut(putX, putY: LongInt; fromAI: boolean);