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)