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)