anchor.diff:        S := S + #$D;
       Stream.WriteBuffer(Pointer(S)^, Length(S));
     end;
  +end;
  +
  +{ TDefaultProject }
  +
  +destructor TDefaultProject.Destroy;
  +begin
  +  inherited Destroy;
   end;
   
   { TFileCategories }
  
positive.code: begin
    if FIsEngineStart then
    begin
      SaveOptions;
      for i := 0 to Tendencies.Count - 1 do
        Tendencies[i].Unprepare;
  
negative.code:   FCachedVariables.Clear;
    FCachedAge := 0;
    Engine.Files.CloseAll;
    if Active then
    begin
      FreeAndNil(FProject);
      FProject := Engine.DefaultProject;
    end;
    Engine.UpdateState([ecsChanged, ecsState, ecsRefresh, ecsProject]);
  end;
  
  