diff --git a/compiler/cfileutl.pas b/compiler/cfileutl.pas
index fc17f27846..840428f9ec 100644
--- a/compiler/cfileutl.pas
+++ b/compiler/cfileutl.pas
@@ -1548,6 +1548,7 @@ end;
 
     procedure InitFileUtils;
       begin
+        CachedCurrentDir:='';
         DirCache:=TDirectoryCache.Create;
       end;