diff --git a/compiler/debug.lisp b/compiler/debug.lisp
index 4f1e166cab6c897a5c8dcdbee4b40c068d87bc2a..32a9f1fb2450ce00d8abcb7f1003498dab4c93e7 100644
--- a/compiler/debug.lisp
+++ b/compiler/debug.lisp
@@ -1039,8 +1039,7 @@
 	   (format t "return c~D " (cont-num (return-result node)))
 	   (print-leaf (return-lambda node)))
 	  (entry
-	   (format t "entry")
-	   (mapc #'print-continuation (entry-exits node)))
+	   (format t "entry ~S" (entry-exits node)))
 	  (exit
 	   (let ((value (exit-value node)))
 	     (cond (value