diff --git a/code/debug-info.lisp b/code/debug-info.lisp
index c21e795a2b4c397fff93721d02ecedb01815c973..bd4698c31d426f1643eabfba7518a62697f79f51 100644
--- a/code/debug-info.lisp
+++ b/code/debug-info.lisp
@@ -323,9 +323,9 @@
   ;;  :Stream - from a non-file stream (Compile-From-Stream)
   (from nil :type (member :file :stream :lisp))
   ;;
-  ;; If :File, the file name, if :Lisp, the lambda compiled, otherwise some
-  ;; descriptive string.
-  (name nil :type (or pathname list simple-string))
+  ;; If :File, the file name, if :Lisp, the form evaluated/compiled, otherwise
+  ;; some descriptive string.  When from COMPILE, this is #'(LAMBDA ...).
+  (name nil)
   ;;
   ;; File comment for this file, if any.
   (comment nil :type (or simple-string null))