From bc780cbb16438edf0d51fbf2a6523b0c26d08426 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 15 May 2011 19:22:40 -0600
Subject: [PATCH] fix arity errors detected by optimizer

original commit: 479e8cdc27e1c1b307fca2bed0866ec36d10bb52
---
 collects/net/nntp-unit.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/net/nntp-unit.rkt b/collects/net/nntp-unit.rkt
index 65bd87c..655b84e 100644
--- a/collects/net/nntp-unit.rkt
+++ b/collects/net/nntp-unit.rkt
@@ -195,7 +195,7 @@
          [status-line (get-one-line-from-server receiver)])
     (let-values ([(code rest-of-line)
                   (parse-status-line status-line)])
-      (values code rest-of-line (get-rest-of-multi-line-response)))))
+      (values code rest-of-line (get-rest-of-multi-line-response communicator)))))
 
 ;; open-news-group :
 ;; communicator x string -> number x number x number