--- a/hedgewars/uVisualGears.pas	Mon Nov 14 17:56:44 2011 -0500
+++ b/hedgewars/uVisualGears.pas	Mon Nov 14 18:08:36 2011 -0500
@@ -401,8 +401,7 @@
 
 procedure DeleteVisualGear(Gear: PVisualGear);
 begin
-    if Gear^.Tex <> nil then
-        FreeTexture(Gear^.Tex);
+    FreeTexture(Gear^.Tex);
     Gear^.Tex:= nil;
 
     if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear^.PrevGear;