Index: /trunk/ccl/level-1/l1-readloop-lds.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop-lds.lisp	(revision 602)
+++ /trunk/ccl/level-1/l1-readloop-lds.lisp	(revision 603)
@@ -231,9 +231,11 @@
     form))
 
-(defun toplevel-eval (form &optional env &aux values)
-   (declare (resident))
+(defun toplevel-eval (form &optional env)
   (setq +++ ++ ++ + + - - form)
-  (setq values (multiple-value-list (cheap-eval-in-environment form env)))
-  values)
+  (let* ((package *package*)
+         (values (multiple-value-list (cheap-eval-in-environment form env))))
+    (unless (eq package *package*)
+      (application-ui-operation *application* :note-package *package*))
+    values))
 
 (defun toplevel-print (values)