--- a/hedgewars/GSHandlers.inc	Mon Jun 01 00:27:57 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Jun 01 17:04:36 2009 +0000
@@ -41,6 +41,7 @@
         CheckGearDrowning:= true;
         Gear^.State:= gstDrowning;
         Gear^.doStep:= @doStepDrowningGear;
+		if Gear^.Kind = gtHedgehog then AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpGameState);
         end;
     PlaySound(sndSplash, false, nil)
     end