Index: /branches/ide-1.0/ccl/examples/cocoa-listener.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-listener.lisp	(revision 6759)
+++ /branches/ide-1.0/ccl/examples/cocoa-listener.lisp	(revision 6760)
@@ -536,5 +536,5 @@
                 (#/setKeyEquivalent: item #@"l")
                 (#/setKeyEquivalentModifierMask: item #$NSCommandKeyMask))
-              (#/setKeyEquivalent: item +null-ptr+)))))))
+              (#/setKeyEquivalent: item #@"")))))))
   (call-next-method item))