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