diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp
index a9fd32c43..f51d6b891 100644
--- a/src/cmp/cmpcall.lsp
+++ b/src/cmp/cmpcall.lsp
@@ -389,6 +389,7 @@
 ;;;
 (defun c2call-unknown-global (fname args loc inline-p narg)
   (unless loc
+    (cmpnote "Emiting FDEFINITION call for ~S" fname)
     (setq loc (list 'FDEFINITION fname)))
   (unwind-exit
    (if (eq args 'ARGS-PUSHED)