--- a/hedgewars/uIO.pas	Sun Nov 13 22:13:58 2005 +0000
+++ b/hedgewars/uIO.pas	Sun Dec 04 15:28:31 2005 +0000
@@ -88,7 +88,7 @@
 procedure ParseIPCCommand(s: shortstring);
 begin
 case s[1] of
-     '!': isPonged:= true;
+     '!': begin {$IFDEF DEBUGFILE}AddFileLog('Ping? Pong!');{$ENDIF}isPonged:= true; end;
      '?': SendIPC('!');
      'e': ParseCommand(copy(s, 2, Length(s) - 1));
      'E': OutError(copy(s, 2, Length(s) - 1), true);
@@ -145,8 +145,7 @@
 procedure SendIPCAndWaitReply(s: shortstring);
 begin
 SendIPC(s);
-s:= '?';
-SDLNet_TCP_Send(IPCSock, @s, Succ(byte(s[0])));
+SendIPC('?');
 isPonged:= false;
 repeat
    IPCCheckSock;