anchor.diff:          STagString:= '';
         end;
   
  +      if NCommand>0 then
  +        CmdObject:= PyInt_FromLong(NCommand)
  +      else
  +        CmdObject:= PyString_FromString(PChar(SCommand));
  +
         PyList_SetItem(Result, i,
  -        Py_BuildValue('{sLsssissssss}',
  +        Py_BuildValue('{sLsssisssssssO}',
             'id',
             Int64(PtrInt(mi.Items[i])),
             'cap',
  
positive.code:           'hotkey',
            PChar(ShortCutToText(mi.Items[i].ShortCut)),
            'tag',
            PChar(STagString)
            ));
      end;
    end;
  
negative.code:   NTag: PtrInt;
    NCommand: integer;
    SCommand, STagString: string;
    CmdObject: PPyObject;
  begin
    //this updates PopupText items tags
    PopupText.OnPopup(nil);
  