diff --git a/tests/webtbs/tw1479.pp b/tests/webtbs/tw1479.pp
index e1f08caa11..693e1ee40d 100644
--- a/tests/webtbs/tw1479.pp
+++ b/tests/webtbs/tw1479.pp
@@ -15,6 +15,6 @@ begin
    halt(1);
   fn:=FileSearch(ThisDir+fname,PathSeparator);
   writeln('found: ',fn);
-  if fn<>'.'+fname then
+  if fn<>ThisDir+fname then
    halt(1);
 end.