--- a/hedgewars/uTeams.pas	Sun Nov 11 16:53:16 2012 +0100
+++ b/hedgewars/uTeams.pas	Sun Nov 11 17:15:19 2012 +0100
@@ -573,8 +573,9 @@
 end;
 
 procedure chBind(var id: shortstring);
-var KeyName, Modifier, tmp: shortstring;
-    b: LongInt;
+var KeyName, Modifier, tmp : shortstring;
+    b			   : LongInt;
+    i			   : Integer;
 begin
 KeyName:= '';
 Modifier:= '';
@@ -582,7 +583,9 @@
 if CurrentTeam = nil then
     exit;
 
-if(Pos('mod:', id) <> 0)then
+i := Pos('mod:', id);
+
+if(i <> 0)then
     begin
     tmp:= '';
     SplitBySpace(id, tmp);