diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm index aef32e7..c8d5107 100644 --- a/scheme/httpd/cgi-server.scm +++ b/scheme/httpd/cgi-server.scm @@ -255,7 +255,7 @@ (http-syslog (syslog-level debug) "[cgi-server] headers: ~s~%" headers) (http-syslog (syslog-level debug) "[cgi-server] request:method=~a~%" (request:method req)) - (write (list 'status-code stat)) + (if loc (if (uri-like? (string-trim loc)) (make-http-error-response http-status/moved-perm req