* call UniqueString for Result in fpkmkunit.fixpath as suggest by Henry Vermaak, resolves #20015

git-svn-id: trunk@18269 -

packages/fpmkunit/src/fpmkunit.pp

@@ -1744,6 +1744,7 @@ begin
   Result:=APath;
   If (result<>'') then
     begin
+      UniqueString(Result);
       P:=PChar(Result);
       While (P^<>#0) do
         begin