Index: /trunk/ccl/hemlock/src/main.lisp
===================================================================
--- /trunk/ccl/hemlock/src/main.lisp	(revision 606)
+++ /trunk/ccl/hemlock/src/main.lisp	(revision 607)
@@ -164,4 +164,6 @@
      and vice versa.  It takes the buffer and the new value for modification
      flag.")
+  (defhvar "Buffer Package Hook"
+      "This hook is called with the new package name whenever a (Lisp) buffer's package changes")
   (defhvar "Set Buffer Hook"
     "This hook is called with the new buffer when the current buffer is set.")
Index: /trunk/ccl/hemlock/src/modeline.lisp
===================================================================
--- /trunk/ccl/hemlock/src/modeline.lisp	(revision 606)
+++ /trunk/ccl/hemlock/src/modeline.lisp	(revision 607)
@@ -239,5 +239,4 @@
   (add-hook hemlock::buffer-pathname-hook 'queue-buffer-change)
   (add-hook hemlock::buffer-modified-hook 'queue-buffer-change)
-  (add-hook hemlock::
   (add-hook hemlock::window-buffer-hook 'queue-window-change))