%
% set incoming subject current registration
%
% stack: dir seed type
%
tuck reading _Cust.Subject  &"_" &5) text!subj
%
% stack: dir seed
%