diff --git a/scheme/lib/rfc822.scm b/scheme/lib/rfc822.scm
index 73d8137..2b46ca4 100644
--- a/scheme/lib/rfc822.scm
+++ b/scheme/lib/rfc822.scm
@@ -99,7 +99,7 @@
 			 (read-line read-crlf-line))
       (let lp ((alist '()))
 	(receive (field val)
-	    (read-rfc822-field port read-line)
+	    (read-field port read-line)
 	  (if field
 	      (lp (cons (cons field val) alist))
 	      (reverse alist)))))))