%
% stack: builder code-group current-code
%
 dup push4th
 {
dup Tree._Text logs
%
% stack: orig-node builder code-group current-code
%
  "Body" second Tree._ValueOf trim
  isnull
%
% skip if marked as missing
%
  second Tree._Mark "Missing" eq$ or
  {
   pop
  }
  {
   &;
%
% stack: orig-node builder code-group current-code body-add
%
   pull4th
%
% stack: orig-node code-group current-code body-add builder
%
   &"/*:"
   third
   hier
   "\" Str.Right
   "\" "." replall
   &
   &":*/"

   &;

   ^
%
% stack: orig-node code-group current-code body-add-builder
%
   tuck

  } ifelse
%
% stack: orig-node builder code-group current-code
%
  tuck
  pop second
%
% stack: orig-node current-code builder code-group
%
  *jsphbulx
%
% stack: orig-node current-code builder code-group
%
  rot
%
% stack: orig-node builder code-group current-code
%
  Tree.EndOf ?
 } loop
 pop

%
% stack: orig-node builder code-group
%
 rot

%
% stack: builder code-group orig-node
%