--- 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;