--- 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.