Index: /trunk/ccl/hemlock/src/cocoa-hemlock.lisp
===================================================================
--- /trunk/ccl/hemlock/src/cocoa-hemlock.lisp	(revision 788)
+++ /trunk/ccl/hemlock/src/cocoa-hemlock.lisp	(revision 789)
@@ -13,5 +13,6 @@
   (thunk nil))
 
-(defstruct (event-queue-node (:include ccl::dll-node))
+(defstruct (event-queue-node (:include ccl::dll-node)
+                             (:constructor make-event-queue-node (event)))
   event)
 
@@ -21,5 +22,5 @@
 
 (defun enqueue-key-event (q event)
-  (event-queue-insert q (make-event-queue-node :event event)))
+  (event-queue-insert q (make-event-queue-node event)))
 
 (defun dequeue-key-event (q)
@@ -34,5 +35,5 @@
 (defun unget-key-event (event q)
   (ccl::with-locked-dll-header (q)
-    (ccl::insert-dll-node-after (make-event-queue-node event) q))
+    (ccl::insert-dll-node-after (make-event-queue-node  event) q))
   (ccl::signal-semaphore (frame-event-queue-signal q)))