diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index 234b8d0be..16f5f72cc 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -246,9 +246,7 @@
   (let ((x (search keywords *permanent-objects*
 		   :test #'(lambda (k record) (eq k (first record))))))
     (if x
-	(progn
-	  (cmpnote "~@<Reusing keywords lists for ~_~A~@:>" keywords)
-	  (second (elt *permanent-objects* x)))
+        (second (elt *permanent-objects* x))
 	(prog1
 	    (add-object (pop keywords) :duplicate t :permanent t)
 	  (dolist (k keywords)