diff --git a/extra/io/nonblocking/nonblocking-docs.factor b/extra/io/nonblocking/nonblocking-docs.factor
index c4adc3aa38..d0d5818bee 100644
--- a/extra/io/nonblocking/nonblocking-docs.factor
+++ b/extra/io/nonblocking/nonblocking-docs.factor
@@ -40,7 +40,7 @@ $nl
     { { $link port-error } " - the most recent I/O error, if any. This error is thrown to the waiting thread when " { $link pending-error } " is called by stream operations" }
     { { $link port-timeout } " - a timeout, specifying the maximum length of time, in milliseconds, for which input operations can block before throwing an error. A value of 0 denotes no timeout is desired." }
     { { $link port-cutoff } " - the time when the current timeout expires; if no input data arrives before this time, an error is thrown" }
-    { { $link port-type } " - a symbol identifying the port's intended purpose. Can be " { $link input } ", " { $link output } ", " { $link closed } ", or any other symbol" }
+    { { $link port-type } " - a symbol identifying the port's intended purpose" }
     { { $link port-eof? } " - a flag indicating if the port has reached the end of file while reading" }
 } } ;
 
diff --git a/extra/io/nonblocking/nonblocking.factor b/extra/io/nonblocking/nonblocking.factor
index 9839cc7066..8a7e732281 100755
--- a/extra/io/nonblocking/nonblocking.factor
+++ b/extra/io/nonblocking/nonblocking.factor
@@ -160,7 +160,7 @@ M: output-port stream-flush ( port -- )
 M: port stream-close
     dup port-type closed eq? [
         dup port-type >r closed over set-port-type r>
-        output eq? [ dup port-flush ] when
+        output-port eq? [ dup port-flush ] when
         dup port-handle close-handle
         dup delegate [ buffer-free ] when*
         f over set-delegate