--- a/hedgewars/uTeams.pas	Sat Feb 24 15:24:36 2018 +0100
+++ b/hedgewars/uTeams.pas	Sun Feb 25 18:57:30 2018 +0100
@@ -386,7 +386,7 @@
 
 function AddTeam(TeamColor: Longword): PTeam;
 var team: PTeam;
-    c, t: LongInt;
+    c: LongInt;
 begin
 if checkFails(TeamsCount < cMaxTeams, 'Too many teams', true) then exit(nil);
 New(team);
@@ -399,8 +399,7 @@
 TeamsArray[TeamsCount]:= team;
 inc(TeamsCount);
 
-for t:= 0 to cKbdMaxIndex do
-    team^.Binds[t]:= DefaultBinds[t];
+team^.Binds:= DefaultBinds;
 
 c:= Pred(ClansCount);
 while (c >= 0) and (ClansArray[c]^.Color <> TeamColor) do dec(c);