diff --git a/scheme/httpd/handler-lib.scm b/scheme/httpd/handler-lib.scm
index e42c030..7cbdd73 100644
--- a/scheme/httpd/handler-lib.scm
+++ b/scheme/httpd/handler-lib.scm
@@ -123,7 +123,7 @@
   (let read-chunks ((chunk-size (get-chunk-size inport))
 		    (res ""))
     (if (= 0 chunk-size) ;last-chunk
-	(begin (read-and-discard-trailer inport); see comment *1
+	(begin (discard-trailer inport); see comment *1
 	       res)
 	(let ((maybe-chunk-data (read-string chunk-size inport)))
 	  (if maybe-chunk-data
@@ -168,7 +168,7 @@
 		   chunk-size-int
 		   (fatal-syntax-error "Chunk-size within chunked entity body is incorrect or syntactically faulty"))))))
 
-(define (read-and-discard-trailer inport)
+(define (discard-trailer inport)
   (with-fatal-error-handler
    (lambda (c decline)
      (fatal-syntax-error "Illegal RFC 822 field syntax within trailer of entity message body"))