From 7170593056bed7c4f1e5d0fa447b5c822418d385 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 15 Jan 2003 14:02:02 +0000
Subject: [PATCH] Use number->status-code to generate status-code from the code
 returned in the CGI header.

---
 scheme/httpd/cgi-server.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm
index 2b01ff2..99efc72 100644
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@@ -264,7 +264,7 @@
 	    (make-redirect-response (string-trim loc)))
 	;; Send the response header back to the client
 	(make-response ;code message seconds mime extras body
-	 (car stat)			; code
+	 (number->status-code (car stat))
 	 (cdr stat)			; text
 	 (time)
 	 ctype