--- a/hedgewars/uVisualGearsHandlers.pas	Sun Jan 05 23:58:13 2014 +0400
+++ b/hedgewars/uVisualGearsHandlers.pas	Mon Jan 06 01:36:33 2014 +0400
@@ -32,7 +32,7 @@
 interface
 uses uTypes;
 
-var doStepHandlers: array[TVisualGearType] of TVGearStepProcedure;
+var doStepVGHandlers: array[TVisualGearType] of TVGearStepProcedure;
 
 procedure doStepFlake(Gear: PVisualGear; Steps: Longword);
 procedure doStepBeeTrace(Gear: PVisualGear; Steps: Longword);
@@ -921,7 +921,7 @@
 
 procedure initModule;
 begin
-    doStepHandlers:= handlers
+    doStepVGHandlers:= handlers
 end;
 
 end.

--- a/hedgewars/uVisualGearsList.pas	Sun Jan 05 23:58:13 2014 +0400
+++ b/hedgewars/uVisualGearsList.pas	Mon Jan 06 01:36:33 2014 +0400
@@ -84,7 +84,7 @@
 gear^.X:= real(X);
 gear^.Y:= real(Y);
 gear^.Kind := Kind;
-gear^.doStep:= doStepHandlers[Kind];
+gear^.doStep:= doStepVGHandlers[Kind];
 gear^.State:= 0;
 gear^.Tint:= $FFFFFFFF;
 gear^.uid:= VGCounter;