diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp
index dc14ffb72a8db0b05dfea40474dc1ed452cf7eb1..16956c57e17f7175d519c24b6cfefde98f9759bb 100644
--- a/code/multi-proc.lisp
+++ b/code/multi-proc.lisp
@@ -3,7 +3,7 @@
 ;;; This code was written by Douglas T. Crosher and has been placed in
 ;;; the Public domain, and is provided 'as is'.
 ;;;
-;;; $Id: multi-proc.lisp,v 1.9 1997/12/29 06:19:00 dtc Exp $
+;;; $Id: multi-proc.lisp,v 1.10 1997/12/29 19:02:54 dtc Exp $
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -897,17 +897,12 @@
       (return nil))))
 
 ;;; A useful idle process loop, waiting on events using the select
-;;; based event server, and yielding periodically.
-;;;
-;;; Timeout for the idle loop, something acceptable by
-;;; sever-all-events.
-(defvar *idle-loop-timeout* 1)
+;;; based event server, which is assumed to be setup to call
+;;; process-yielding periodically.
 ;;;
 (defun idle-process-loop ()
   (loop
-   (sys:serve-all-events *idle-loop-timeout*)
-   (process-yield)))
-
+   (sys:serve-all-events)))
 
 ;;; Process-Yield
 ;;;