%
% stack: message-text
%
*babymsgl
{
%
% proper baby tack in focus
%
"," 0 5 1 parse
5 countup
{
 pop
 trim any?
 {
  *babyline
 } if
} for

*babydsav

}
{
%
% baby focus does not exist
%
 pop
} ifelse