From bc6324e2523a6c94f71ad10a9b03919dbd332f00 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 20 Feb 2003 08:57:59 +0000
Subject: [PATCH] Generate a pair of status and text if the CGI script failed
 to provide the "Status" 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 33ce4bf..f9a9b75 100644
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@@ -247,7 +247,7 @@
 		     (else
 		      (http-syslog (syslog-level notice) 
 				   "CGI script didn't generate status header.")
-		      200)))
+		      (cons 200 "OK"))))
 	 (extra-headers (delete-headers (delete-headers (delete-headers headers
 									'content-type)
 							'location)