diff --git a/code/debug-info.lisp b/code/debug-info.lisp
index a647dcb5660bc5d3904767f0e4f049e9db320db6..e5c49b0797e384a1c5be9e357c6768bdbc1db315 100644
--- a/code/debug-info.lisp
+++ b/code/debug-info.lisp
@@ -181,12 +181,14 @@
 ;;;    number of successors + bit flags (single byte)
 ;;;        elsewhere-p
 ;;;    ...ordinal number of each successor in the function's blocks vector...
-;;;    kind of location (single byte)
+;;;    number of locations in this block
+;;;    kind of first location (single byte)
 ;;;    delta from previous PC (or from 0 if first location in function.)
 ;;;    [offset of first top-level form, if no function TLF-NUMBER]
 ;;;    form number of first source form
 ;;;    first live mask (length in bytes determined by number of VARIABLES)
-;;;    ...more <PC, top-level form offset, form-number, live-set> tuples...
+;;;    ...more <kind, delta, top-level form offset, form-number, live-set>
+;;;       tuples...
 
 
 (defconstant compiled-debug-block-nsucc-byte (byte 2 0))