From 9df2110ffb9ee9210fef4cc82ade4f5d233177e6 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Thu, 29 Nov 2007 05:09:32 +0000
Subject: [PATCH] fix Unable to create target lazarus directory, issue #10286

git-svn-id: trunk@13071 -
---
 components/codetools/fileprocs.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/fileprocs.pas b/components/codetools/fileprocs.pas
index 34af558cee..b30b3eb971 100644
--- a/components/codetools/fileprocs.pas
+++ b/components/codetools/fileprocs.pas
@@ -603,7 +603,7 @@ var i: integer;
   Dir: string;
 begin
   DoDirSeparators(DirectoryName);
-  DirectoryName:=IncludeTrailingPathDelimiter(DirectoryName);
+  DirectoryName:=AppendPathDelim(DirectoryName);
   i:=1;
   while i<=length(DirectoryName) do begin
     if DirectoryName[i]=PathDelim then begin