diff --git a/src/cmp/cmpopt-clos.lsp b/src/cmp/cmpopt-clos.lsp
index 32ce18b81..bb711dce0 100644
--- a/src/cmp/cmpopt-clos.lsp
+++ b/src/cmp/cmpopt-clos.lsp
@@ -62,4 +62,4 @@
 	      (null (rest methods))
 	      (let* ((principal (first methods)))
 		(or (optimizable-slot-reader principal whole)
-		    (optimizable-slot-writer principal rest)))))))
+		    (optimizable-slot-writer principal whole)))))))