%
% does the xact have a profile (registered)
%
_Xact
empty !Cust.Stamp
"Profile" text*tack
!Xact
_Cust.Stamp any)?

%
% stack: has-reg-profile
%