%
% initiate the reverse time lookup
%
 snap "xact*" xactseed
 File.FoldPrev
 0 !Xact
 any?
 {
  fileroot -4 left
  !Xact
 } if
 _Xact nonzero
%
% stack: have-xact
%