--- a/hedgewars/uGearsUtils.pas	Sun Nov 16 00:57:05 2014 +0300
+++ b/hedgewars/uGearsUtils.pas	Sun Nov 16 17:07:13 2014 +0100
@@ -1306,6 +1306,8 @@
     FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0);
     FollowGear^.Health:= cHealthCaseAmount;
     FollowGear^.Pos:= posCaseHealth;
+    // health crate is smaller than the other crates
+    FollowGear^.Radius := cCaseHealthRadius;
     AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo);
     end
 else if (t<a+h) then