diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index d0bd11c58..d1ac9a7f1 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2652,7 +2652,7 @@
   (define keys 
     ;; sym     key      quote?
     '((:select #:select #t)
-      (:rename #:rename #f)))
+      (:renamer #:renamer #f)))
   (if (not (pair? (car spec)))
       `(',spec)
       `(',(car spec)