Значок объекта в таблице выборки на панели состава

Насколько я знаю, у каждой строки выборки может быть только 1 значек. Так что врядли.
Как вариант - нарисовать смешанные иконки (иконка документа + восклицательный знак) и назначать такую иконку конкретному объекту при смене значения поля "приоритет"

Меняю значок объекта...

Sub Object_Modified(Obj)
  ThisScript.SysAdminModeOn
  msgbox Obj.Description
  if Obj.Attributes("ATTR_EXPIRED_BY_NODE").Object is nothing then
    msgbox err.Description & vbNewLine & Obj.Icon.SystemIndex, "1"
    Obj.Icon = ThisApplication.Icons.SystemIcon(147) 'было Obj.ObjectDef.Icon (как бы "сброс")
    msgbox err.Description & vbNewLine & Obj.Icon.SystemIndex,, "2"
  else
    Obj.Icon = ThisApplication.Icons.SystemIcon(146)  '.Item("IMG_DOC_EXCLAM")
  end if
  ThisScript.SysAdminModeOff
End Sub

но это не работает, точнее установка значка 146 работает, а "сброс" не работает.
и так тоже:

Obj.Icon = ThisApplication.Icons.SystemIcon(Obj.ObjectDef.Icon.SystemIndex)

Почему? (msgbox показывает 146 до и 147 после, т.е. всё правильно)

P.S.
В тестовой команде вот так работает:

set Obj = ThisObject
Obj.Icon = Obj.ObjectDef.Icon

После обновления всё по старому, т.е. неправильный значок.
Но если взять и изменить в объекте что-то, то значок меняется.
У меня код "сброса" значка вызывается из другого кода (ExecuteScript ... "Object_Modified" ...).
Да и код установки тоже также.
Т.е. получается при естественной обработке (при изменении объекта через UI) события Object_Modified всё работает правильно, а при вызове программно - нет...

ещё такие наблюдения:
через ThisObject - работает, но у меня из команды вызываются другие скрипты и в них нет ThisObject (вычисляется косвенно).
если прямо в скрипте команды прописать изменение значка, то он меняется только в случае снятой галочки "Запускать без проверки прав" (ИМХО должно быть наоборот хотя бы)

У меня сброс как раз в команде происходит (правда через вызов другого скрипта) (установка по таймеру)
Код команды:

...
    set obj = ThisApplication.GetObjectByGUID(ThisObject.GUID)
    msgbox obj.Icon.SystemIndex,,"before"
    ss = route_jump_forward(route, node)    'здесь происходит сброс значка (obj.Icon = obj.ObjectDef.Icon, obj ищется через node.ReferencedBy)
    'obj.Update
    msgbox obj.Icon.SystemIndex,,"after"
end sub

(код сброшенного значка должен быть 113, не сброшенного - 35)
запустил два ТДМСа. в первом вызываю команду, во втором смотрю значок в разные моменты.
первый msgbox показывает 35, во втором ТДМСе значок 35 (всё правильно).
воторой msgbox показывал одно время 113, но сейчас показывает всё время 35 (т.е. сброс как бы не произошёл),
смотрю во втором ТДМСе - значок 113 (правильно, т.е. сброс всё-таки произошёл).
далее... end sub, смотрю во втором ТДМСе - значок опять 35 (даже если второй msgbox показывал 113).
пока у меня вариантов больше нет... (жаль нет смайла, который долбится об стену)