Index: /trunk/ccl/hemlock/src/lispbuf.lisp
===================================================================
--- /trunk/ccl/hemlock/src/lispbuf.lisp	(revision 853)
+++ /trunk/ccl/hemlock/src/lispbuf.lisp	(revision 854)
@@ -44,5 +44,6 @@
        (t
 	(message
-	 "Ignoring \"package\" file option -- cannot convert to a string."))))))
+	 "Ignoring \"package\" file option -- cannot convert to a string."))))
+    :hooks (list 'package-name-change-hook)))
 
 
Index: /trunk/ccl/hemlock/src/lispmode.lisp
===================================================================
--- /trunk/ccl/hemlock/src/lispmode.lisp	(revision 853)
+++ /trunk/ccl/hemlock/src/lispmode.lisp	(revision 854)
@@ -1749,5 +1749,6 @@
       "The package used for evaluation of Lisp in this buffer."
       :buffer buffer
-      :value "CL-USER")))
+      :value "CL-USER"
+      :hooks (list 'package-name-change-hook))))