--- a/hedgewars/uTeams.pas	Wed Oct 15 11:54:06 2008 +0000
+++ b/hedgewars/uTeams.pas	Wed Oct 15 15:02:39 2008 +0000
@@ -358,16 +358,16 @@
 end;
 
 procedure TeamGone(s: shortstring);
-var i: integer;
+var i, t: LongInt;
 begin
 i:= 0;
 
-while (i < cMaxTeams)
-	and (TeamsArray[i] <> nil)
-	and (TeamsArray[i]^.TeamName <> s) do inc(i);
-if (i = cMaxTeams) or (TeamsArray[i] = nil) then exit;
+while (t < cMaxTeams)
+	and (TeamsArray[t] <> nil)
+	and (TeamsArray[t]^.TeamName <> s) do inc(t);
+if (t = cMaxTeams) or (TeamsArray[t] = nil) then exit;
 
-with TeamsArray[i]^ do
+with TeamsArray[t]^ do
 	begin
 	AddChatString('* '+ TeamName + ' is gone');
 	for i:= 0 to cMaxHHIndex do