--- a/hedgewars/uTeams.pas	Wed Oct 15 17:00:35 2008 +0000
+++ b/hedgewars/uTeams.pas	Wed Oct 15 17:01:34 2008 +0000
@@ -360,8 +360,7 @@
 procedure TeamGone(s: shortstring);
 var i, t: LongInt;
 begin
-i:= 0;
-
+t:= 0;
 while (t < cMaxTeams)
 	and (TeamsArray[t] <> nil)
 	and (TeamsArray[t]^.TeamName <> s) do inc(t);