--- a/hedgewars/uAIMisc.pas	Mon Jul 31 11:31:31 2006 +0000
+++ b/hedgewars/uAIMisc.pas	Sat Aug 05 20:57:36 2006 +0000
@@ -124,6 +124,7 @@
 begin
 bonuses.Count:= 0;
 MyColor:= PHedgehog(ThinkingHH.Hedgehog).Team.Color;
+SDL_LockMutex(GearsListMutex);
 Gear:= GearsList;
 while Gear <> nil do
       begin
@@ -141,6 +142,7 @@
            end;
       Gear:= Gear.NextGear
       end;
+SDL_UnlockMutex(GearsListMutex);
 if isAfterAttack and (KnownExplosion.Radius > 0) then
    with KnownExplosion do
         AddBonus(X, Y, Radius + 10, -Radius);