diff -r f2507005be87 -r a3872ffdeab1 hedgewars/uVisualGears.pas --- 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