diff --git a/src/cmp/cmpenv-proclaim.lsp b/src/cmp/cmpenv-proclaim.lsp
index 546335a48..de0bcc6f4 100644
--- a/src/cmp/cmpenv-proclaim.lsp
+++ b/src/cmp/cmpenv-proclaim.lsp
@@ -47,7 +47,7 @@
                  (SAFETY (setq *safety* (second x)))
                  (SPACE (setq *space* (second x)))
                  (SPEED (setq *speed* (second x)))
-                 (COMPILATION-SPEED (setq *speed* (- 3 (second x))))
+                 (COMPILATION-SPEED (setq *compilation-speed* (second x)))
                  (t (warn "The OPTIMIZE quality ~s is unknown." (car x)))))))
     (cl:TYPE
      (if (consp (cdr decl))