From c2109e2e67c5981edd56a2a630480ec24544ed4c Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Tue, 18 Nov 2003 20:25:59 +0000
Subject: [PATCH] Adjust MAKE-RESUME-URL and DEFAULT-MAKE-SESSION-TIMEOUT-TEXT
 to surflets that are in subdirectories.

---
 scheme/httpd/surflets/surflet-handler.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm
index 90ddac3..19631ff 100644
--- a/scheme/httpd/surflets/surflet-handler.scm
+++ b/scheme/httpd/surflets/surflet-handler.scm
@@ -543,7 +543,7 @@
 
 ;; All arguments are numbers except PATH-STRING, which is a string.
 (define (make-resume-url path-string session-id continuation-counter continuation-id)
-  (string-append path-string
+  (string-append (file-name-nondirectory path-string)
 		 ";k" (number->string session-id)
 		 ";c" (number->string continuation-counter)
 		 "-" (number->string continuation-id)))
@@ -641,7 +641,7 @@
 <li>You URL is illformed.</li>
 </ul>
 </p>
-<p>In any case, you may try to restart the SUrflet from the <a href=\"~a\">beginning</a>. Your browser may also have cached an old session of this SUrflet. In this case, try to reload the page.</p>" start-url))
+<p>In any case, you may try to restart the SUrflet from the <a href=\"~a\">beginning</a>. Your browser may also have cached an old session of this SUrflet. In this case, try to reload the page.</p>" (file-name-nondirectory start-url)))
 
 ;; Constructor with defaults.
 (define (make-default-surflet-options)