anchor.diff:  
   function TDLCache.CleanupFileName(const fileName: string): string;
   begin
  -  Result := StringReplace(fileName, ':\', '_\', []);
  +  Result := StringReplace(fileName, ':\', '_\',  []);
     Result := StringReplace(Result,   '\\', '\_\', []);
  -  Result := '\' + Result;
  +  Result := StringReplace(Result,   '\',  '/',   [rfReplaceAll]);
  +  Result := '/' + Result;
   end; { TDLCache.CleanupFileName }
   
   function TDLCache.DateDumpStr(dt: TDateTime): string;
  
positive.code:       FileName: string;
        FileTime: string;
      end;
    var
      FLastGet     : TLastGet;
      FStorageFile : string;
      FStorage     : IGpStructuredStorage;
  
negative.code:   if FLastGet.FileName <> fileName then
      FLastGet.FileTime := DateDumpStr(DSiGetFileTime(fileName, ftLastModification));
    FStorage.FileInfo[fn].Attribute[AttrFileModified] := FLastGet.FileTime;
  
    unitInfo.FullName := fn;
    unitInfo.FileTime := FLastGet.FileTime;
    FCacheInfo.AddOrSetValue(unitName, unitInfo);
  
    str := FStorage.OpenFile(fn, fmCreate);
    try
  