diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp
index edf304c52..631c80c56 100644
--- a/src/cmp/cmpcall.lsp
+++ b/src/cmp/cmpcall.lsp
@@ -53,7 +53,7 @@
 	  ;; (FUNCALL macro-expression ...)
 	  ((let ((name (first fun)))
 	     (setq fd (and (symbolp name)
-                           ;; We do not want to macroexpad 'THE
+                           ;; We do not want to macroexpand 'THE
                            (not (eq name 'THE))
 			   (cmp-macro-function name))))
 	   (c1funcall (list* (cmp-expand-macro fd fun) arguments)))