diff --git a/src/cmp/cmpenv-fun.lsp b/src/cmp/cmpenv-fun.lsp
index 054b2e57a..543002508 100644
--- a/src/cmp/cmpenv-fun.lsp
+++ b/src/cmp/cmpenv-fun.lsp
@@ -157,6 +157,6 @@
 		    (flag (assoc fname x :test #'same-fname-p)))
 	       (and flag (cdr flag)))
 	     (not (sys:get-sysprop fname 'CMP-NOTINLINE)))
-    (format t "~&;;; Storing inline form for ~a" fname)
+    (cmpnote "~&;;; Storing inline form for ~a" fname)
     `(eval-when (:compile-toplevel)
        (si::put-sysprop ',fname 'inline ',form))))
diff --git a/src/cmp/cmpeval.lsp b/src/cmp/cmpeval.lsp
index 46a89c3a7..40b66074b 100644
--- a/src/cmp/cmpeval.lsp
+++ b/src/cmp/cmpeval.lsp
@@ -69,7 +69,7 @@
 	((and can-inline
 	      (setf fd (si::get-sysprop fname 'inline))
 	      (<=(cmp-env-optimization 'space) 1))
-	 (format t "~&;;; Inlining ~a" fname)
+	 (cmpnote "~&;;; Inlining ~a" fname)
 	 (c1expr `(funcall ,fd ,@args)))
 	(t (c1call-global fname args))))