diff --git a/clx/input.lisp b/clx/input.lisp
index 2489e5befaa9a06784e9a3e77f207b9e9d5d7740..a30fa67bc58038c337aef175fb39b9d6aaf3571e 100644
--- a/clx/input.lisp
+++ b/clx/input.lisp
@@ -26,7 +26,7 @@
 ;;; 12/10/87	LGO	Created
 #+cmu
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/input.lisp,v 1.7 1999/03/16 23:37:43 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/input.lisp,v 1.8 2001/05/12 15:09:17 pw Exp $")
 
 (in-package :xlib)
 
@@ -943,7 +943,7 @@
   (window (window event-window))
   (keyword atom) ;; keyword
   ((or null card32) time)
-  ((member16 :new-value :deleted) state))
+  ((member8 :new-value :deleted) state))
 
 (declare-event :selection-clear
   (card16 sequence)