hedgewars/uPhysFSLayer.pas
changeset 11688 17d102f9515d
parent 11649 f17df78181d8
child 11704 83c40c1eb0e7
child 11831 7654e2357934
--- a/hedgewars/uPhysFSLayer.pas	Sat Apr 23 16:32:18 2016 -0400
+++ b/hedgewars/uPhysFSLayer.pas	Sat Apr 23 16:57:20 2016 -0400
@@ -198,7 +198,7 @@
 begin
 {$IFDEF HWLIBRARY}
     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
-    cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
+    cPhysfsId:= shortstring(GetCurrentDir()) + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
 {$ELSE}
     cPhysfsId:= ParamStr(0);
 {$ENDIF}