===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM/src/kan96xx/Doc/httpd-sm1.sm1	2001/08/12 03:13:35	1.3
+++ OpenXM/src/kan96xx/Doc/httpd-sm1.sm1	2001/08/12 07:20:37	1.4
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.2 2001/08/10 08:33:03 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.3 2001/08/12 03:13:35 takayama Exp $
 %% http server by sm1
 %% Note to run on the Windows (TM).
 %% (A) You need to set IE (internet explorer) as follows:
@@ -136,6 +136,7 @@ tag 0 eq {
 /httpd {
   /httpd.serial 0 def
   /httpd.history [ ] def
+  /httpd.result.history [ 0 ] def
   {
     httpd_startserver ;
     httpd_action ;
@@ -250,6 +251,7 @@ tag 0 eq {
              (: </font> ) 
              (<a href=") httpd.image.name ("> (in pretty format) </a>) %%test
               httpd.result preformatHTML
+              httpd.result.history httpd.result append /httpd.result.history set
             ] cat
             send-page-3  exit  %% exit the loop LOOP-A
           } { exit } ifelse  %% metaCommand