--- a/hedgewars/uIO.pas	Sat Jun 29 01:56:16 2013 +0200
+++ b/hedgewars/uIO.pas	Sat Jun 29 02:42:15 2013 +0200
@@ -411,6 +411,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);