--- a/hedgewars/uStore.pas	Sun May 15 13:18:34 2016 +0200
+++ b/hedgewars/uStore.pas	Sun May 15 14:29:37 2016 +0300
@@ -578,7 +578,7 @@
 procedure RenderHealth(var Hedgehog: THedgehog);
 var s: shortstring;
 begin
-str(Hedgehog.Gear^.Health, s);
+s:= IntToStr(Hedgehog.Gear^.Health);
 FreeAndNilTexture(Hedgehog.HealthTagTex);
 Hedgehog.HealthTagTex:= RenderStringTex(ansistring(s), Hedgehog.Team^.Clan^.Color, fnt16)
 end;