diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 66212961c..36ebc885e 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -9226,7 +9226,7 @@ function ExtractFilePath(fileName: string): string;
   var fi := new System.IO.FileInfo(fileName);
   Result := fi.DirectoryName;
   if (Result.Length > 0) and (Result[Result.Length] <> '\') and (Result[Result.Length] <> '/') then
-    Result += '\';
+    Result += System.IO.Path.DirectorySeparatorChar;
 end;
 
 function ExtractFileDir(fileName: string): string;