From 349402b7cc41c1ba8cc801a1a7fa0271423fcd72 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Tue, 1 Oct 2002 12:22:37 +0000
Subject: [PATCH] use PATH-LIST->FILE-NAME for file name assembling

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

diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm
index 321a47c..d63d871 100644
--- a/scheme/httpd/surflets/surflet-handler.scm
+++ b/scheme/httpd/surflets/surflet-handler.scm
@@ -81,8 +81,9 @@
 	      (if (redirect-body? (response-body response))
 		  ;; prefix with servlet-path
 		  (make-redirect-response 
-		   (string-join (file-name-as-directory servlet-prefix)
-				(redirect-body-location (response-body response))))
+		   (path-list->file-name
+		    (list (directory-as-file-name servlet-prefix)
+			  (redirect-body-location (response-body response)))))
 		  response)))
 	   (else
 	    (make-http-error-response http-status/method-not-allowed req