--- a/hedgewars/uChat.pas	Sun Dec 07 14:36:28 2014 -0500
+++ b/hedgewars/uChat.pas	Mon Dec 08 09:35:14 2014 -0500
@@ -147,7 +147,7 @@
 var color  : TSDL_Color;
 begin
 if cl.Tex <> nil then
-    FreeTexture(cl.Tex);
+    FreeAndNilTexture(cl.Tex);
 
 if isInput then
     begin
@@ -583,9 +583,9 @@
 procedure freeModule;
 var i: ShortInt;
 begin
-    FreeTexture(InputStr.Tex);
+    FreeAndNilTexture(InputStr.Tex);
     for i:= 0 to MaxStrIndex do
-        FreeTexture(Strs[i].Tex);
+        FreeAndNilTexture(Strs[i].Tex);
 end;
 
 end.