Index: http-client.scm
===================================================================
--- http-client.scm	(revision 29481)
+++ http-client.scm	(working copy)
@@ -188,7 +188,16 @@
                                     'unsupported-uri-scheme
                                     'uri-scheme (uri-scheme remote-end)
                                     'request-uri uri 'proxy proxy)))
-         (let ((con (make-http-connection uri in out proxy)))
+         (let ((con (make-http-connection
+                     uri in
+
+                     (make-output-port
+                      (lambda (data)
+                        (display data (current-error-port))
+                        (write-string data (string-length data) out))
+                      (lambda () #t))
+
+                     proxy)))
            (add-connection! uri con)
            con)))))