--- a/hedgewars/hwengine.pas	Mon Mar 01 19:20:43 2010 +0000
+++ b/hedgewars/hwengine.pas	Mon Mar 01 19:54:33 2010 +0000
@@ -89,7 +89,7 @@
 ////////////////////////////////
 procedure DoTimer(Lag: LongInt);
 {$IFNDEF IPHONEOS}
-var s: string;
+var s: shortstring;
 {$ENDIF}
 begin
 	inc(RealTicks, Lag);