--- a/hedgewars/uStats.pas	Mon Jun 10 23:50:36 2013 +0300
+++ b/hedgewars/uStats.pas	Tue Jun 11 00:05:07 2013 +0300
@@ -24,7 +24,7 @@
 
 var TotalRounds: LongInt;
     FinishedTurnsTotal: LongInt;
-    SendStatsOn : boolean = true;
+    SendHealthStatsOn : boolean = true;
     
 procedure initModule;
 procedure freeModule;
@@ -164,7 +164,7 @@
                 StepDamageGiven:= 0
                 end;
                 
-if SendStatsOn then
+if SendHealthStatsOn then
 	for t:= 0 to Pred(ClansCount) do
 		with ClansArray[t]^ do
 			begin
@@ -209,7 +209,7 @@
     maxTeamDamageName : shortstring;
     winnersClan : PClan;
 begin
-if SendStatsOn then
+if SendHealthStatsOn then
 	msd:= 0; msdhh:= nil;
 	msk:= 0; mskhh:= nil;
 	mskcnt:= 0;