%
% now a subject has been attached to this xact
% create or re-create the galleries for this subject
%
*xactsubj
{
 _Xact
 *custheac
/*
 _Xact.Index positive
 {
  *custigen
 } if
*/
 _Xact.Slist &"
 !Subject.Xacts
"
 !Xact
 "Subject_Xacts" text!tack

}
{
%
% error, should have subject
%
} ifelse