diff --git a/httpd-core.scm b/httpd-core.scm
index f98a052..833b961 100644
--- a/httpd-core.scm
+++ b/httpd-core.scm
@@ -76,18 +76,17 @@
 	;; closes the connection, we won't lose when we try to close the
 	;; socket by trying to flush the output buffer.
         (lambda (sock addr) ; Called once for every connection.
-	  (set-port-buffering (socket:outport sock) 'bufpol/none) ; No buffering
-
-	 (spawn (lambda ()	; Kill this line to bag forking.
+	  (set-port-buffering (socket:outport sock) bufpol/none) ; No buffering
+	  (spawn (lambda ()	; Kill this line to bag forking.
 					; Should propagate. ecch.
-		  (with-current-input-port 
-		   (socket:inport  sock)		    ; bind the
-		   (with-current-output-port 
-		    (socket:outport sock)	    ; stdio ports, &
-		    (set-port-buffering (current-input-port) 'bufpol/none)
-		    (process-toplevel-request path-handler sock)
-		    (close-socket sock))) ; do it.
-		  )))
+		   (with-current-input-port 
+		    (socket:inport  sock)		    ; bind the
+		    (with-current-output-port 
+		     (socket:outport sock)	    ; stdio ports, &
+		     (set-port-buffering (current-input-port) bufpol/none)
+		     (process-toplevel-request path-handler sock)
+		     (close-socket sock))) ; do it.
+		   )))
 	port))))
 
 ;;; Top-level http request processor