Index: /trunk/ccl/hemlock/src/key-event.lisp
===================================================================
--- /trunk/ccl/hemlock/src/key-event.lisp	(revision 695)
+++ /trunk/ccl/hemlock/src/key-event.lisp	(revision 696)
@@ -279,5 +279,6 @@
 
 (defstruct (key-event (:print-function %print-key-event)
-		      (:constructor %make-key-event (keysym bits)))
+		      (:constructor %make-key-event (keysym bits))
+                      (:include ccl::dll-node))
   (bits nil :type fixnum)
   (keysym nil :type fixnum))