diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm
index b2eb7ee..61d024a 100644
--- a/scheme/httpd/core.scm
+++ b/scheme/httpd/core.scm
@@ -70,7 +70,7 @@
 		  (set-port-buffering (socket:outport sock) bufpol/none) ; No buffering
 		  (fork-thread 
 		   (lambda ()	
-		     (set-port-buffering (current-input-port) bufpol/none)
+		     (set-port-buffering (socket:inport sock) bufpol/none)
 		     (process-toplevel-request sock host-address options)
 		     (if (http-syslog?)
 			 (http-syslog (syslog-level debug) "<~a>~a [closing]~%"