* Merging revisions r49225 from trunk:

    ------------------------------------------------------------------------
    r49225 | michael | 2021-04-18 12:45:47 +0200 (Sun, 18 Apr 2021) | 1 line
    
    * Fix issue ID #38772
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@49301 -

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}