diff --git a/src/cmp/cmpname.lsp b/src/cmp/cmpname.lsp
index f6ef04caf..e57d0cf5e 100644
--- a/src/cmp/cmpname.lsp
+++ b/src/cmp/cmpname.lsp
@@ -91,7 +91,6 @@ the function name it precedes."
     (when (search-tag stream tag)
       (let ((name (read-name stream)))
 	(cmpnote "Found tag: ~S for ~A" name file)
-	(print name)
 	name))))
 
 (defun remove-prefix (prefix name)