diff --git a/code/serve-event.lisp b/code/serve-event.lisp
index e130ac1efbdb31997353decf1cb384838a45f7ee..bf08f694b187beb367aa078741d08add235f13b4 100644
--- a/code/serve-event.lisp
+++ b/code/serve-event.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/serve-event.lisp,v 1.17 1992/09/09 17:45:14 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/serve-event.lisp,v 1.18 1992/12/11 00:56:24 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -362,7 +362,6 @@
 
 ;;; Check for any X displays with pending events.
 ;;;
-#+clx
 (defun handle-queued-clx-event ()
   (dolist (d/h *display-event-handlers*)
     (let* ((d (car d/h))
@@ -423,8 +422,8 @@
 ;;;    Takes timeout broken into seconds and microseconds.
 ;;;
 (defun sub-serve-event (to-sec to-usec)
-  #+clx
-  (when (handle-queued-clx-event) (return-from sub-serve-event t))
+  (when (handle-queued-clx-event)
+    (return-from sub-serve-event t))
 
   ;; Next, wait for something to happen.
   (multiple-value-bind