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