From 05f5e9ad12d1d647bc4ea7e50619c48fc8a492d6 Mon Sep 17 00:00:00 2001
From: Kevin Jesshope <kevinofoz@gmail.com>
Date: Wed, 4 Jan 2023 06:36:31 +0000
Subject: [PATCH] Update file fpwebfile.pp

---
 packages/fcl-web/src/base/fpwebfile.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-web/src/base/fpwebfile.pp b/packages/fcl-web/src/base/fpwebfile.pp
index eaeb53a7c6..112ea48370 100644
--- a/packages/fcl-web/src/base/fpwebfile.pp
+++ b/packages/fcl-web/src/base/fpwebfile.pp
@@ -346,7 +346,7 @@ begin
     if (BaseDir='') then
       BaseDir:=ExtractFilePath(Paramstr(0))
     end;
-  FN:=ExtractRelativepath(BaseDir,aFileName);
+  FN:=ExtractRelativepath(BaseDir,FN);
   Result:=Pos('..'+PathDelim,FN)=0;
 end;