%
% does the xact have a subject
%
empty !Shooter.Subject
"Tacked.txt" ofxact exists 
{

"****************xtackedsubj" log#
stop

}
{
 "Subject" text*xact
 _Shooter.Subject any)?
} ifelse
"xactsubj " &_Shooter.Subject log)(
%
% stack: has-subject
%