diff --git a/src/cmp/cmppolicy.lsp b/src/cmp/cmppolicy.lsp
index 47ad4bea4..32f30e39d 100644
--- a/src/cmp/cmppolicy.lsp
+++ b/src/cmp/cmppolicy.lsp
@@ -93,7 +93,7 @@
         (cmp-env-add-declaration 'optimization (list new) env)))))
 
 (defun add-default-optimizations (env)
-  (if (cmp-env-search-declaration 'optimization)
+  (if (cmp-env-search-declaration 'optimization env)
       env
       (cmp-env-add-declaration 'optimization (list (default-policy)) env)))