Index: /trunk/ccl/examples/cocoa-listener.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-listener.lisp	(revision 865)
+++ /trunk/ccl/examples/cocoa-listener.lisp	(revision 866)
@@ -110,5 +110,5 @@
 		       :object-for-key #?NSFileHandleNotificationDataItem))
 	   (document (send self 'document))
-	   (data-length (send data 'length))
+	   (data-length (send (the ns:ns-data data) 'length))
 	   (buffer (hemlock-document-buffer document))
 	   (string (make-string data-length))
Index: /trunk/ccl/examples/cocoa-window.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-window.lisp	(revision 865)
+++ /trunk/ccl/examples/cocoa-window.lisp	(revision 866)
@@ -131,6 +131,6 @@
 (define-objc-method ((:void :send-event e)
 		     lisp-application)
-  (if (and (eql (send e 'type) #$NSApplicationDefined)
-	   (eql (send e 'subtype) process-interrupt-event-subtype))
+  (if (and (eql (send (the ns:ns-event e) 'type) #$NSApplicationDefined)
+	   (eql (send (the ns:ns-event e) 'subtype) process-interrupt-event-subtype))
     ;;; The thunk to funcall is identified by the value
     ;;; of the event's data1 attribute.