From 81c5688893cfc551750c74bb75d285248cf1a05a Mon Sep 17 00:00:00 2001
From: michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sun, 18 Apr 2021 10:45:47 +0000
Subject: * Fix issue ID 38772

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49225 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 rtl/objpas/sysutils/osutil.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/osutil.inc b/rtl/objpas/sysutils/osutil.inc
index ffa7531efd..729f96d285 100644
--- a/rtl/objpas/sysutils/osutil.inc
+++ b/rtl/objpas/sysutils/osutil.inc
@@ -245,7 +245,7 @@ begin
     Repeat
       Result:=Format('%s%.5d.tmp',[Start,I]);
       Inc(I);
-    Until not FileExists(Result);
+    Until not (FileExists(Result) or DirectoryExists(Result));
     end;
 end;
 {$endif}
-- 
cgit v1.2.1