--- a/hedgewars/uIO.pas	Tue Jul 07 15:24:43 2009 +0000
+++ b/hedgewars/uIO.pas	Tue Jul 07 21:48:55 2009 +0000
@@ -169,8 +169,11 @@
 	buf: array[0..255] of byte;
 	s: shortstring absolute buf;
 begin
+{$IFDEF IPHONEOS}
+filemode := 0;
+{$ENDIF}
+
 assign(f, fileName);
-
 reset(f, 1);
 
 repeat