diff --git a/lcl/include/fileutil.inc b/lcl/include/fileutil.inc
index c73fefd2f0..11272494a6 100644
--- a/lcl/include/fileutil.inc
+++ b/lcl/include/fileutil.inc
@@ -324,7 +324,7 @@ begin
   while (p>0) do begin
     case Result[p] of
     PathDelim: exit;
-    '.': Result:=copy(Result,p-1,length(Result));
+    '.': Result:=copy(Result,1, p-1);
     else dec(p);
     end;
   end;