--- a/hedgewars/uVisualGears.pas	Tue Jan 26 04:13:37 2010 +0000
+++ b/hedgewars/uVisualGears.pas	Tue Jan 26 21:55:51 2010 +0000
@@ -49,6 +49,7 @@
 
 procedure init_uVisualGears;
 procedure free_uVisualGears;
+
 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear;
 procedure ProcessVisualGears(Steps: Longword);
 procedure DrawVisualGears(Layer: LongWord);
@@ -561,7 +562,7 @@
 
 procedure free_uVisualGears;
 begin
-while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList);
+	while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList);
 end;
 
 end.