diff --git a/code/debug-info.lisp b/code/debug-info.lisp
index 92cb44bde0eb9a62d967f5ac0b256954d51a9a37..6d5eedff604f9defef8facb7bbbd75d4a9b693e7 100644
--- a/code/debug-info.lisp
+++ b/code/debug-info.lisp
@@ -296,9 +296,13 @@
   ;;    elected not to store a vector to save space.
   (returns :fixed :type (or (simple-array * (*)) (member :standard :fixed)))
   ;;
-  ;; SC-Offsets describing where the return PC and return CONT are kept.
+  ;; SC-Offsets describing where the return PC and return FP are kept.
   (return-pc nil :type sc-offset)
-  (old-cont nil :type sc-offset)
+  (old-fp nil :type sc-offset)
+  ;;
+  ;; SC-Offset for the number stack FP in this function, or NIL if no NFP
+  ;; allocated.
+  (nfp nil :type (or sc-offset null))
   ;;
   ;; The earliest PC in this function at which the environment is properly
   ;; initialized (arguments moved from passing locations, etc.)
@@ -320,6 +324,9 @@
   ;; descriptive string.
   (name nil :type (or pathname list simple-string))
   ;;
+  ;; File comment for this file, if any.
+  (comment nil :type (or simple-string null))
+  ;;
   ;; The universal time that the source was written, or NIL if unavailable.
   (created nil :type (or unsigned-byte null))
   ;;