diff --git a/src/eval-apply.c b/src/eval-apply.c
index d0f21a65..77caa884 100644
--- a/src/eval-apply.c
+++ b/src/eval-apply.c
@@ -614,9 +614,12 @@ eval:
                       name = name->car;
                     if (macro_p != 0)
                       {
+                        entry = cell_f;
+                        /* FIXME: dead code; no tests
                         entry = assq (name, g_macros);
                         if (entry == cell_f)
-                          macro_set_x (name, cell_f);
+                        */
+                        macro_set_x (name, entry);
                       }
                     else
                       {