--- a/hedgewars/uIO.pas	Mon Mar 01 19:20:43 2010 +0000
+++ b/hedgewars/uIO.pas	Mon Mar 01 19:54:33 2010 +0000
@@ -141,7 +141,7 @@
 end;
 
 procedure IPCCheckSock;
-const ss: string = '';
+const ss: shortstring = '';
 var i: LongInt;
 	buf: array[0..255] of byte;
 	s: shortstring absolute buf;
@@ -170,7 +170,7 @@
 
 procedure LoadRecordFromFile(fileName: shortstring);
 var f: file;
-	ss: string = '';
+	ss: shortstring = '';
 	i: LongInt;
 	buf: array[0..255] of byte;
 	s: shortstring absolute buf;