diff --git a/compiler/debug.lisp b/compiler/debug.lisp
index 2c1280e113f9e4686fc9890de2a2f2d89b14bdc8..efc82a226f5469c8a085860b833278dc57312506 100644
--- a/compiler/debug.lisp
+++ b/compiler/debug.lisp
@@ -759,8 +759,7 @@
      "~%TNs: ~D local, ~D temps, ~D constant, ~D env, ~D comp, ~D global.~@
        Wired: ~D, Unused: ~D.  ~D block~:P, ~D global conflict~:P.~%"
        local temps const environment comp global wired unused
-       (1+ (ir2-block-number
-	    (block-info (block-next (component-head component)))))
+       (ir2-block-count component)
        confs))
   (undefined-value))