--- a/hedgewars/uStore.pas	Sun Jun 20 18:35:59 2010 +0200
+++ b/hedgewars/uStore.pas	Sun Jun 20 23:05:11 2010 +0200
@@ -1322,11 +1322,16 @@
 
 end;
 
-
+{$IFDEF IPHONEOS}
+procedure spinningWheelDone; cdecl; external;
+{$ENDIF}
 procedure FinishProgress;
 begin
     WriteLnToConsole('Freeing progress surface... ');
     FreeTexture(ProgrTex);
+{$IFDEF IPHONEOS}
+    spinningWheelDone();
+{$ENDIF}
 end;
 
 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean);