--- a/hedgewars/uAIMisc.pas	Wed Nov 17 22:26:34 2010 +0300
+++ b/hedgewars/uAIMisc.pas	Wed Nov 17 22:09:07 2010 -0500
@@ -131,7 +131,7 @@
 
 begin
 bonuses.Count:= 0;
-MyClan:= PHedgehog(ThinkingHH^.Hedgehog)^.Team^.Clan;
+MyClan:= ThinkingHH^.Hedgehog^.Team^.Clan;
 Gear:= GearsList;
 while Gear <> nil do
     begin