diff --git a/collects/net/nntp-unit.ss b/collects/net/nntp-unit.ss
index 73b0210..8937fa1 100644
--- a/collects/net/nntp-unit.ss
+++ b/collects/net/nntp-unit.ss
@@ -64,6 +64,7 @@
 	      (let-values (((code response)
 			    (get-single-line-response communicator)))
 		(case code
+                  [(201) communicator]
 		  ((200)
 		   communicator)
 		  (else