--- a/hedgewars/uAIMisc.pas	Sun May 02 20:30:23 2010 +0000
+++ b/hedgewars/uAIMisc.pas	Sun May 02 22:00:50 2010 +0000
@@ -246,6 +246,7 @@
 function RateShove(Me: PGear; x, y, r, power: LongInt): LongInt;
 var i, dmg, rate: LongInt;
 begin
+Me:= Me; // avoid compiler hint
 rate:= 0;
 for i:= 0 to Pred(Targets.Count) do
     with Targets.ar[i] do