diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm index a378a16..c0c42ba 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm @@ -328,8 +328,8 @@ (map car continuations)))) (define (return-to-main-page req) - (send/finish (make-error-response (status-code moved-perm) req - "admin.scm" "admin.scm"))) + (send-error (status-code moved-perm) req + "admin.scm" "admin.scm")) (define (main req) (show-surflets req))