--- a/hedgewars/uTeams.pas	Fri Sep 09 21:31:39 2011 +0200
+++ b/hedgewars/uTeams.pas	Fri Sep 09 18:30:40 2011 -0400
@@ -524,7 +524,7 @@
 end;
 
 procedure chTeamGone(var s:shortstring);
-var t, i: LongInt;
+var t: LongInt;
 begin
 t:= 0;
 while (t < cMaxTeams)