diff --git a/compiler/checkgen.lisp b/compiler/checkgen.lisp
index 54327c34369ce5e20426382f9b53cf3e3140573d..445b8f53082a834c2a72bc1295bd3aa396a39b1b 100644
--- a/compiler/checkgen.lisp
+++ b/compiler/checkgen.lisp
@@ -388,7 +388,7 @@
 		(when (and (combination-p dest)
 			   (function-info-p (basic-combination-kind dest)))
 		  (setf (basic-combination-kind dest) :full)))
-	      (when (policy node (>= safety brevity))
+	      (unless (policy node (= brevity 3))
 		(let ((*compiler-error-context* node))
 		  (if (and (ref-p node) (constant-p (ref-leaf node)))
 		      (compiler-warning "This is not a ~S:~%  ~S"