--- a/hedgewars/GSHandlers.inc	Thu Jun 23 15:08:19 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Fri Jun 24 13:24:41 2011 +0200
@@ -4811,7 +4811,6 @@
 procedure doStepStructure(Gear: PGear);
 var 
     x, y: LongInt;
-    hog: PHedgehog;
 begin
     if CurAmmoGear = Gear then
         begin