--- http-server.scm.old	Fri May 12 11:44:57 2006
+++ http-server.scm	Fri May 12 11:54:07 2006
@@ -55,4 +55,5 @@
    http:get-addresses-procedure
    http:hard-close-procedure
+   http:enable-keep-alive
    http:url-transformation
    http:parse-embedded-content
@@ -99,5 +100,9 @@
 (define http:get-addresses-procedure (make-parameter tcp-addresses))
 (define http:hard-close-procedure (make-parameter tcp-abandon-port))
-
+(define http:enable-keep-alive (make-parameter #t))
+;; disable keep-alive for Windows MSVC, until the bugs are figured out.
+(when (eq? (build-platform) 'msvc)
+  (fprintf (current-error-port) "[disabling keep-alive (Windows only)]\n")
+  (http:enable-keep-alive #f))
 (define http:error-hook
   (make-parameter 
@@ -198,5 +203,5 @@
 (define (complete-request req in out addr)
   ((http:log-hook) req addr)
-  (or (and req (not (http:force-close)) (keep-alive? req))
+  (or (and req (not (http:force-close)) (http:enable-keep-alive) (keep-alive? req))
       (begin
 	(close-connection in out)