hedgewars/uGearsList.pas
changeset 7366 e5a0856708dc
parent 7364 ee87ad50e18d
child 7389 15c3fb4882df
--- a/hedgewars/uGearsList.pas	Sun Jul 08 11:43:22 2012 -0400
+++ b/hedgewars/uGearsList.pas	Sun Jul 08 12:00:27 2012 -0400
@@ -40,7 +40,7 @@
 begin
     tmp:= GearsList;
     ptmp:= GearsList;
-    while (tmp <> nil) and (tmp^.Z <= Gear^.Z) do
+    while (tmp <> nil) and (tmp^.Z < Gear^.Z) do
         begin
         ptmp:= tmp;
         tmp:= tmp^.NextGear