diff -durN 21.4.6-orig/src/cmdloop.c 21.4.6/src/cmdloop.c
--- 21.4.6-orig/src/cmdloop.c	Mon Jul 23 15:10:21 2001
+++ 21.4.6/src/cmdloop.c	Thu Jan 17 14:19:18 2002
@@ -610,6 +610,7 @@
   defsymbol (&Qreally_early_error_handler, "really-early-error-handler");
   defsymbol (&Qtop_level, "top-level");
   defsymbol (&Qerrors_deactivate_region, "errors-deactivate-region");
+  defsymbol (&Qdisabled_command_hook, "disabled-command-hook");
 
 #ifndef LISP_COMMAND_LOOP
   DEFSUBR (Frecursive_edit);
diff -durN 21.4.6-orig/src/eval.c 21.4.6/src/eval.c
--- 21.4.6-orig/src/eval.c	Mon Aug  6 13:56:12 2001
+++ 21.4.6/src/eval.c	Thu Jan 17 14:16:14 2002
@@ -2946,7 +2946,7 @@
   debug_on_next_call = 0; /* #### from FSFmacs; correct? */
 
   if (SYMBOLP (cmd) && !NILP (Fget (cmd, Qdisabled, Qnil)))
-    return run_hook (Vdisabled_command_hook);
+    return run_hook (Qdisabled_command_hook);
 
   for (;;)
     {
diff -durN 21.4.6-orig/src/event-stream.c 21.4.6/src/event-stream.c
--- 21.4.6-orig/src/event-stream.c	Tue Jan 15 11:22:10 2002
+++ 21.4.6/src/event-stream.c	Thu Jan 17 14:29:56 2002
@@ -135,7 +135,7 @@
 
 /* Non-nil disable property on a command means
    do not execute it; call disabled-command-hook's value instead. */
-Lisp_Object Qdisabled, Vdisabled_command_hook;
+Lisp_Object Qdisabled, Qdisabled_command_hook, Vdisabled_command_hook;
 
 EXFUN (Fnext_command_event, 2);
 
diff -durN 21.4.6-orig/src/lisp.h 21.4.6/src/lisp.h
--- 21.4.6-orig/src/lisp.h	Mon Jan  7 14:17:41 2002
+++ 21.4.6/src/lisp.h	Thu Jan 17 14:14:05 2002
@@ -3198,7 +3198,7 @@
 extern Lisp_Object Qcrlf, Qcurrent_menubar, Qctext;
 extern Lisp_Object Qcyclic_variable_indirection, Qdecode;
 extern Lisp_Object Qdefun, Qdevice_live_p;
-extern Lisp_Object Qdim, Qdisabled, Qdisplay_table;
+extern Lisp_Object Qdim, Qdisabled, Qdisabled_command_hook, Qdisplay_table;
 extern Lisp_Object Qdomain_error;
 extern Lisp_Object Qediting_error;
 extern Lisp_Object Qencode, Qend_of_buffer, Qend_of_file, Qend_open;