--- a/hedgewars/uRenderUtils.pas	Wed Dec 17 19:03:33 2014 +0100
+++ b/hedgewars/uRenderUtils.pas	Wed Dec 17 19:23:57 2014 +0100
@@ -311,6 +311,8 @@
 begin
     m:= Length(s);
 
+    substr:= '';
+
     SetLengthA(substr, m);
 
     // number of chars read

--- a/hedgewars/uUtils.pas	Wed Dec 17 19:03:33 2014 +0100
+++ b/hedgewars/uUtils.pas	Wed Dec 17 19:23:57 2014 +0100
@@ -74,6 +74,7 @@
 procedure Write(var f: textfile; s: shortstring);
 procedure WriteLn(var f: textfile; s: shortstring);
 function StrLength(s: PChar): Longword;
+procedure SetLengthA(var s: ansistring; len: Longword);
 {$ENDIF}
 
 function  isPhone: Boolean; inline;