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