--- a/hedgewars/CCHandlers.inc	Wed Sep 13 19:26:16 2006 +0000
+++ b/hedgewars/CCHandlers.inc	Thu Sep 14 17:20:50 2006 +0000
@@ -47,8 +47,15 @@
 end;
 
 procedure chAddTeam(var s: shortstring);
+const TeamsCount: Longword = 0;
 begin
-if isDeveloperMode then AddTeam;
+if isDeveloperMode then
+   begin
+   inc(TeamsCount);
+   TryDo(TeamsCount <= 5, 'Too many teams', true);
+   AddTeam
+   end;
+   
 if GameType in [gmtDemo, gmtSave] then CurrentTeam.ExtDriven:= true
 end;