--- a/hedgewars/uGears.pas	Tue Apr 26 13:13:07 2011 +0200
+++ b/hedgewars/uGears.pas	Wed Apr 27 15:57:23 2011 +0400
@@ -1081,7 +1081,6 @@
         end;
     end else if Gear^.Kind <> gtStructure then // not gtHedgehog nor gtStructure
         begin
-        AddFileLog('Assigning hedgehog ' + inttostr(LongInt(AttackerHog)) + ' to gear ' + inttostr(Gear^.uid));
         Gear^.Hedgehog:= AttackerHog;
         end;
     inc(Gear^.Damage, Damage);
@@ -1141,7 +1140,7 @@
 end;
 
 procedure AddMiscGears;
-var i: LongInt;
+var i: Longword;
     Gear: PGear;
 begin
 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000);