From a9a206554062cf55220dd33d9256ccb431cc888e Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 6 Dec 2010 15:32:13 +0100
Subject: [PATCH] fix name...

* module/web/request.scm (read-request-body/latin-1): Fix name...
---
 module/web/request.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/web/request.scm b/module/web/request.scm
index 9f8663896..da91c40b8 100644
--- a/module/web/request.scm
+++ b/module/web/request.scm
@@ -192,7 +192,7 @@
 ;; Probably not what you want to use "in production". Relies on one byte
 ;; per char because we are in latin-1 encoding.
 ;;
-(define (read-response-body/latin-1 r)
+(define (read-request-body/latin-1 r)
   (cond 
    ((request-content-length r) =>
     (lambda (nbytes)