--- a/hedgewars/uVisualGearsHandlers.pas	Tue Oct 29 23:47:57 2013 +0400
+++ b/hedgewars/uVisualGearsHandlers.pas	Wed Oct 30 00:18:10 2013 +0400
@@ -551,7 +551,7 @@
         with thexchar[i] do
           if team^.TeamHealth > 0 then
             begin
-            dec(t, team^.HealthTex^.h + 2);
+            dec(t, team^.Clan^.HealthTex^.h + 2);
             ny:= t;
             dy:= dy - ny
             end;