Index: /trunk/ccl/level-1/l1-boot-lds.lisp
===================================================================
--- /trunk/ccl/level-1/l1-boot-lds.lisp	(revision 481)
+++ /trunk/ccl/level-1/l1-boot-lds.lisp	(revision 482)
@@ -76,4 +76,11 @@
 				     (pushnew output-stream
 					      *auto-flush-streams*))
+				   (let* ((shared-input
+					   (input-stream-shared-resource
+					    input-stream)))
+				     (when shared-input
+				       (setf (shared-resource-primary-owner
+					      shared-input)
+					     *current-process*)))
 				   (funcall initial-function))
 			      (with-lock-grabbed