diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp
index f5f09a238ca840320c4e5cd8e152d9f8865dfd40..79ffa77e03a66d73332004af2720cc88169aa4d6 100644
--- a/code/multi-proc.lisp
+++ b/code/multi-proc.lisp
@@ -4,7 +4,7 @@
 ;;; the Public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.28 1998/05/01 00:53:16 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.29 1998/05/19 02:08:49 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1435,9 +1435,9 @@
 ;;; Wait until FD is usable for DIRECTION.
 ;;;
 (defun process-wait-until-fd-usable (fd direction &optional timeout)
-  "Wait until FD is usable for DIRECTION. DIRECTION should be either :INPUT or
-  :OUTPUT. TIMEOUT, if supplied, is the number of seconds to wait before giving
-  up."
+  "Wait until FD is usable for DIRECTION and return True. DIRECTION should be
+  either :INPUT or :OUTPUT. TIMEOUT, if supplied, is the number of seconds to
+  wait before giving up and returing NIL."
   (declare (type kernel:index fd)
 	   (type (or real null) timeout)
 	   (optimize (speed 3)))