--- a/hedgewars/uScript.pas	Mon Jun 25 10:44:27 2012 +0200
+++ b/hedgewars/uScript.pas	Mon Jun 25 11:47:40 2012 +0200
@@ -738,8 +738,7 @@
             DrawRoundRect(@rr, clan^.Color, clan^.Color, texsurf, false);
 
             FreeTexture(team^.HealthTex);
-            team^.HealthTex:= Surface2Tex(texsurf, false);
-            SDL_FreeSurface(texsurf);
+            team^.HealthTex:= Surface2Atlas(texsurf, false);
             MakeCrossHairs
             end
         end;