diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index e316dbdd4..2a5e66ceb 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -53,8 +53,7 @@
                             ((vv-used-p vv-record)
                              object)
                             (t
-                             (cmpnote "Constant value optimized away or not used~%~A"
-                                      object)
+                             ;; Value optimized away or not used
                              0))))
   #+(or)
   (loop for i in (nconc (map 'list #'first *permanent-objects*)