Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 4965)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 4966)
@@ -23,6 +23,8 @@
   #+linuxx8664-target
   (require "X8664-LINUX-SYSCALLS")
-  #+darwin-target
-  (require "DARWIN-SYSCALLS")
+  #+darwinppc-target
+  (require "DARWINPPC-SYSCALLS")
+  #+darwinx8664-target
+  (require "DARWINX8664-SYSCALLS")
   #+freebsdx8664-target
   (require "X8664-FREEBSD-SYSCALLS"))
@@ -2871,5 +2873,6 @@
   (let* ((s (make-fd-stream fd
                             :elements-per-buffer elements-per-buffer
-                            :class 'selection-input-stream)))
+                            :class 'selection-input-stream
+                            :sharing :lock)))
     (setf (slot-value s 'peer-fd) peer-fd)
     s))