%
% stack: mesg prefix
%
exch !BabyMsg
 empty
 "BabyMsg" sval
 "Shooter.Mother" sval
 exch &"_" &_Shooter.Mother &".tmp" ofyone dup tuck write
 ".msg" overext