--- a/hedgewars/HHHandlers.inc	Wed Jun 18 18:57:34 2008 +0000
+++ b/hedgewars/HHHandlers.inc	Wed Jun 18 19:34:06 2008 +0000
@@ -571,6 +571,7 @@
 
 if (Gear^.State and (gstMoving or gstDrowning)) <> 0 then
 	begin
+	if Gear^.Damage > 0 then CalcRotationDirAngle(Gear);
 	AllInactive:= false;
 	exit
 	end;