diff --git a/lib/init-7.scm b/lib/init-7.scm
index 4eeee6c4..184cf17f 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -1137,7 +1137,7 @@
                       rename compare
                       #t
                       ellipsis ellipsis-specified?
-                      (list _set!)
+                      (list (caar (cadr forms)))
                       (list (cadr forms)
                             (list
                              (cons (caar forms) _o)