diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index db97569470..8a4fd78749 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -1344,7 +1344,7 @@ begin
     if CurPath<>'' then begin
       if (BaseDir<>'') and (not FilenameIsAbsolute(CurPath)) then
         CurPath:=BaseDir+CurPath;
-      CurPath:=AppendPathDelim(TrimFilename(CurPath));
+      CurPath:=ChompPathDelim(TrimFilename(CurPath));
       if Result<>'' then
         CurPath:=';'+CurPath;
       if CurPath<>'' then