--- a/hedgewars/uChat.pas	Tue Jun 17 18:45:21 2008 +0000
+++ b/hedgewars/uChat.pas	Tue Jun 17 19:22:54 2008 +0000
@@ -120,7 +120,7 @@
 procedure KeyPressChat(Key: Longword);
 const firstByteMark: array[1..4] of byte = (0, $C0, $E0, $F0);
 var i, btw: integer;
-    utf8, s: shortstring;
+    utf8: shortstring;
 begin
 if Key <> 0 then
 	case Key of