diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp
index 2ba566503..0c8418f5f 100644
--- a/src/cmp/cmptop.lsp
+++ b/src/cmp/cmptop.lsp
@@ -817,6 +817,7 @@
     (new-local fun)
     (wt-nl (if macro "ecl_cmp_defmacro(" "ecl_cmp_defun(")
 	   loc ");")
+    (wt-comment (loc-immediate-value fname))
     (close-inline-blocks)))
 
 (defun output-cfuns (stream)