%
% stack: name-to-add parse-length child-node
%
 dup Tree._Text
%
% check to see if the combo is the first part of this child
%
% stack: name-to-add parse-length child-node child-name
%
 fourth true compare
%
% stack: name-to-add parse-length child-node
%         difference position
%
 pop2nd dup 1 gt