diff --git a/code/describe.lisp b/code/describe.lisp
index 9a1831a4411727e254adc5c89ecd7b2e8235d52e..402a2dd39fcf2ce82d42aaf91592f244a59de902 100644
--- a/code/describe.lisp
+++ b/code/describe.lisp
@@ -276,7 +276,7 @@
   (describe-function-compiled (%closure-function x))
   (format t "~&Its lexical environment is:")
   (indenting-further *standard-output* 8)
-  (dotimes (i (get-header-data x))
+  (dotimes (i (get-closure-length x))
     (format t "~&~D: ~S" i (%closure-index-ref x i))))