%
% stack: press-id
%
dup !Press.Id

%
% susbstitute all Press sections in the template
%
oflocal html read *archgens

%
% navigate to the constructed html in the main app area
%
"arching.html" oflocal write

"arching.html"

%
% stack: view-filename
%