--- a/hedgewars/uTeams.pas	Wed Jun 05 15:42:00 2013 +0200
+++ b/hedgewars/uTeams.pas	Wed Jun 05 16:28:30 2013 +0200
@@ -110,7 +110,7 @@
 end;
 
 procedure SwitchHedgehog;
-var c, i, t, j: LongWord;
+var c, i, t: LongWord;
     PrevHH, PrevTeam : LongWord;
 begin
 TargetPoint.X:= NoPointX;