Index: /trunk/ccl/examples/cocoa-listener.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-listener.lisp	(revision 4915)
+++ /trunk/ccl/examples/cocoa-listener.lisp	(revision 4916)
@@ -52,4 +52,5 @@
            input-stream
            (make-fd-stream output-fd :direction :output
+                           :sharing :lock
                            :elements-per-buffer
                            (#_fpathconf