anchor.diff:    kh : TKGameList;
     n : integer;
     modified : boolean;
  -  d1, d2, d3 : double;
   begin
     // test if already open
     n := IsOpenInTab('', aName, modified);
  
positive.code:   // open
    try
      Screen.Cursor := fmMain.WaitCursor;
      d1 := Now;
      kh := TKGameList.Create(aName, 'id', KombiloFormatString, nil,
                              Settings.DBCache);
      d2 := Now;
      //Screen.Cursor := crDefault;
      TerminateOpenDatabase(fmMain.ActivePage,
                            fmMain.ActiveView, kh, aName, num, node)
      ;d3 := Now;
      //fmMain.Caption := Format('%f %f %f %f %f', [d1, d2, d3, d2 - d1, d3 - d2]);
    except
      HandleOpenErrorMessage([U('Error opening database') + ' ' + aName]);
      ok := False
  
negative.code:   view.cl.Clear;
  
    for i := 0 to view.kh.Size - 1 do
      begin
        {$if 1=0}
        s := view.kh.CurrentEntryAsString(i);
  