--- a/hedgewars/uVisualGears.pas	Thu Dec 11 13:35:35 2014 +0100
+++ b/hedgewars/uVisualGears.pas	Thu Dec 11 07:52:51 2014 -0500
@@ -508,11 +508,11 @@
     vg:= VisualGearLayers[i];
     while vg <> nil do
         if vg^.Kind = vgtFlake then
-        begin
-        tmp:= vg^.NextGear;
-        DeleteVisualGear(vg);
-        vg:= tmp
-        end
+            begin
+            tmp:= vg^.NextGear;
+            DeleteVisualGear(vg);
+            vg:= tmp
+            end
         else vg:= vg^.NextGear;
     end;
 if hasBorder or (not cSnow) then