--- a/hedgewars/uGears.pas	Thu Jan 12 22:07:36 2006 +0000
+++ b/hedgewars/uGears.pas	Sun Jan 15 14:14:12 2006 +0000
@@ -114,7 +114,8 @@
                                                                doStepMine,
                                                                doStepCase,
                                                                doStepDEagleShot,
-                                                               doStepDynamite
+                                                               doStepDynamite,
+                                                               doStepTeamHealthSorter
                                                                );
 
 function AddGear(X, Y: integer; Kind: TGearType; State: Cardinal; const dX: real=0.0; dY: real=0.0; Timer: LongWord=0): PGear;
@@ -277,7 +278,7 @@
             Gear.Damage:= 0
             end;
       Gear:= Gear.NextGear
-      end;
+      end
 end;
 
 procedure ProcessGears;