--- a/hedgewars/HHHandlers.inc	Tue Mar 30 13:33:01 2010 +0000
+++ b/hedgewars/HHHandlers.inc	Tue Mar 30 13:35:26 2010 +0000
@@ -595,7 +595,7 @@
 if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
     begin
     inc(Gear^.FlightTime, 1);
-    if Gear^.FlightTime = 2000 then
+    if Gear^.FlightTime = 3000 then
         begin
         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);
         PlaySound(sndHomerun)