From 65e8af29524867b27d71c35dcf6beef0bd2de5e5 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Wed, 4 Sep 2002 10:29:12 +0000
Subject: [PATCH] send error output to stdout (= to client)

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

diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm
index 0cdd873..7ec9d78 100644
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@@ -113,6 +113,7 @@
 	 (doit (lambda ()
 		 (dup->inport  (current-input-port) 0)
 		 (dup->outport (current-output-port) 1)
+		 (dup 1 2)
 		 (apply exec/env filename env argv))))
 
     (http-syslog (syslog-level debug) "[cgi-server] search: ~s, argv: ~s~%" search argv)