Index: /trunk/ccl/level-1/l1-boot-lds.lisp
===================================================================
--- /trunk/ccl/level-1/l1-boot-lds.lisp	(revision 599)
+++ /trunk/ccl/level-1/l1-boot-lds.lisp	(revision 600)
@@ -83,4 +83,7 @@
 					      shared-input)
 					     *current-process*)))
+                                   (application-ui-operation
+                                    *application*
+                                    :note-note-current-package *package*)
 				   (funcall initial-function))
 			      (with-lock-grabbed