anchor.diff:    end;
   end;
   
  -procedure TEditorFrame.DoSaveHistory_Bookmarks(Ed: TATSynEdit; c: TJsonConfig;
  -  const path: UnicodeString; AForSession: boolean);
  +procedure TEditorFrame.DoSaveHistory_Bookmarks(Ed: TATSynEdit; c: TJsonConfig; const path: UnicodeString);
   var
     SKey: UnicodeString;
   begin
  -  //saving bookmarks - modern
  -  if (not AForSession) and (Ed.FileName<>'') then
  +  if Ed.FileName<>'' then
     begin
       SKey:= AppConfigKeyForBookmarks(Ed);
       if Ed.Strings.Bookmarks.Count>0 then
  
positive.code:     end;
  
      DoSaveHistoryEx(Ed, cfg, path, false);
    finally
      cfg.Free;
    end;
  
negative.code:       end;
      end;
  
      if AllowLoadHistory then
        DoLoadHistoryEx(Ed, cfg, path, AllowLoadEncoding);
  
      if AllowLoadBookmarks then
        DoLoadHistory_Bookmarks(Ed, cfg, path);
    finally
      cfg.Free;
    end;
  