diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp
index 08961db2fe5702feb4e705608ac9397f45bec8f7..e99282bd8c36060f60acc4f647127213b0d3350e 100644
--- a/compiler/debug-dump.lisp
+++ b/compiler/debug-dump.lisp
@@ -498,7 +498,7 @@
 				    ((let ((ef (functional-entry-function
 						fun)))
 				       (and ef (leaf-name ef))))
-				    (main-p (leaf-name dispatch))
+				    ((and main-p (leaf-name dispatch)))
 				    (t
 				     (component-name component)))
 			:kind (if main-p nil (functional-kind fun))