--- a/hedgewars/uLocale.pas	Wed Jan 02 11:11:49 2013 +0100
+++ b/hedgewars/uLocale.pas	Sun Jan 27 00:28:57 2013 +0100
@@ -40,14 +40,12 @@
     trevt_n: array[TEventId] of integer;
 
 procedure LoadLocale(FileName: shortstring);
-var s: ansistring;
+var s: ansistring = '';
     f: pfsFile;
     a, b, c: LongInt;
     first: array[TEventId] of boolean;
     e: TEventId;
-    loaded: boolean;
 begin
-loaded:= false;
 for e:= Low(TEventId) to High(TEventId) do
     first[e]:= true;