diff -r dcd248e04f3d -r ed789a7ef68d hedgewars/uAI.pas
--- a/hedgewars/uAI.pas	Thu Jan 14 16:38:43 2010 +0000
+++ b/hedgewars/uAI.pas	Thu Jan 14 16:46:50 2010 +0000
@@ -135,10 +135,10 @@
            end;
 
     function Push(Ticks: Longword; const Actions: TActions; const Me: TGear; Dir: integer): boolean;
-    var Result: boolean;
+    var bRes: boolean;
     begin
-    Result:= (Stack.Count < cBranchStackSize) and (Actions.Count < MAXACTIONS - 5);
-    if Result then
+    bRes:= (Stack.Count < cBranchStackSize) and (Actions.Count < MAXACTIONS - 5);
+    if bRes then
        with Stack.States[Stack.Count] do
             begin
             WastedTicks:= Ticks;
@@ -147,7 +147,7 @@
             Hedgehog.Message:= Dir;
             inc(Stack.Count)
             end;
-    Push:= Result
+    Push:= bRes
     end;
 
     procedure Pop(var Ticks: Longword; var Actions: TActions; var Me: TGear);